Sub UserForm_Initialize()
Dim I As Integer ' Declare une variable en integer pour faire une boucle
For I = 1 To Feuil1.Range('A65535').End(xlUp).Row
' Boucle de la ligne 1 à la dernière ligne non vide de la colonne A
If UCase(Feuil1.Cells(I, 3).Value) = 'X' Then
'Si la valeur en majuscule(ucase!) de la ligne I, colonne 3 (C!) est egale à X
ListBox1.AddItem (Feuil1.Cells(I, 1).Value) ' Alors ajoute à la liste la valeur de laligne colonne A
End If ' fin de si
Next ' Prochaine ligne
End Sub