Private Sub CommandButton1_Click()
Dim I As Integer, Cellule As Range
With ListBox1
' En se basant sur ListBox1 (appelé directement avec un . ensuite)
For I = 0 To .ListCount - 1
' Pour I = 0 jusqu'àu nombre d'éléments de ListBox1 (-1 car les indices commencent à 0)
If .Selected(I) Then
' Si l'indice est sélectionné
Set Cellule = Sheets("Training tracking").Columns(2).Find(.List(I))
' Cellule est le 1er résultat de la recherche du nom
Recommence:
' Permet de revenir là si le couple Nom/Prénom n'est pas bon
If Not Cellule.Offset(0, 1) = .List(I, 1) Then
' Si le prénom n'est pas le bon
Set Cellule = Sheets("Training tracking").Columns(2).FindNext(Cellule)
' Chercher le nom suivant
GoTo Recommence
' Retourne à Recommence
End If
' Fin du test donc Cellule est le bon couple Nom/Prénom
Cellule.Offset(0, Range("XFD1").End(xlToLeft).Column - 2) = "X"
' En face du prénom, je me déplace sur la bonne colonne
End If
' Fin du test si l'indice était sélectionné
Next I
' Indice suivant
End With
' Fin de se baser sur ListBox1
trainee.Hide
' Cacher l'USF, Unload Me serait d'ailleurs plus logique
End Sub