Private Sub CommandButton6_Click()
Dim tableau_nom(10000, 1)
' ---------- Remplace la première boucle ----------------
i = UserForm5.liste_nom.ListIndex
tableau_nom(i + 1, 0) = UserForm5.liste_nom.List(i, 0)
tableau_nom(i + 1, 1) = UserForm5.liste_nom.List(i, 1)
' -----------------------------------------------------------
x = 8 ' Affecte à x le n° de la 8ème ligne de la feuille "CA"
' Lecture des lignes du tableau "tableau_nom" de 0 (1ère ligne) à la dernière (UBound) - 1
puisque le tableau commence à 0
For i = 0 To UBound(tableau_nom) - 1
' Si la ligne du tableau est vide alors arrêt de la boucle de lecture
If tableau_nom(i, 0) = "" Then Exit For
Do ' Répéter les instructions entre Do...Loop jusqu'à ce que la cellule "Cells(x, 3)" soit égale à 0
' Si la cellule "Cells(x, 3) " est égale à la valeur lue dans le tableau
If Sheets("CA").Cells(x, 3).Value = tableau_nom(i, 0) Then
' Efface la ligne "x"
Sheets("CA").Rows(x).Delete
x = x - 1 ' Remonte d'une ligne
Exit Do ' Sortie de la boucle
End If
x = x + 1 ' Descend 'une ligne
Loop Until Sheets("CA").Cells(x, 3).Value = ""
Next i
UserForm5.Hide ' Ferme le formulaire
Unload Me
End Sub