Bonjour,

je travaille actuellement à la création d'une liste pour une macro sur mon fichier. Je rentre les lignes suivantes (seules celles liées à mon probleme sont presentes) :

Dim Tab_LE() As String
If Left(UCase(Sheets("package").Cells(17, col).Value), 1) = "Y" Then
j = j + 1
ReDim Tab_LE(j)
Tab_LE(j - 1) = Sheets("package").Cells(16, col).Value
End If

Mon problème est le suivant :
Ma table Tab_LE ne contient que la dernière valeur de la boucle or je voudrais qu'elle contiennnent tous les élements répondant aux critères. Que dois je changer?

Merci de votre aide