j'ai fait un code qui permet de supprimer les clients d'une liste. puis j'ai ajouté une message box qui demande confirmation pour la suppression. Et c'est là que les choses se gâtent: je ne peux plus supprimer de clients

Pouvez vous m'aider?



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim rep As Long
 
rep = MsgBox("Etes-vous sûr de vouloir supprimer le client?", vbYesNo)
If rep = VbOKYes Then
   ligne = 3
   While Worksheets("Listedesclients").Cells(ligne, 1).Value <> listSupprimer_client.Value
      ligne = ligne + 1
   Wend
 
'La macro fait faire une boucle à partir de la deuxième ligne, 1ère colonne jusqu'à la nième ligne, 1ère colonne
'La boucle s'arrete lorsqu'elle retrouve dans le contenu de la cellule la même valeur que la va leur sélectionnée dans la liste
   For j = 1 To 2
'Pour les colonnes allant de 1 à 2
      Worksheets("listedesclients").Cells(ligne, j).Delete xlUp
'Supprime le contenu de la cellule située la ligne qui correspond à la
'valeur cherchée plus haut et décale vers le haut
   Next
Else
   Exit Sub
End If
End Sub