VBA Excel macro

Bonjour,

En colonne C, j'ai une liste de nom.

En cellule B1, j'ai une liste déroulante avec des noms.

Je souhaite que quand je sélectionne un nom en B1, toutes les lignes dont le nom en colonne C ne correspond pas au nom choisi dans B1 soient effacées.

Le souci est que mon code fonctionne "à moitié". En effet, il faut que je le relance plusieurs fois pour qu'il efface toutes les lignes pertinentes. si je ne lance qu'une fois il y a des "oublis".

Bizarre non?

Voici mon code:

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

Dim ligne As Long

If MsgBox("Did you choose the right Member? Click YES only if you are sure of it." & Chr(10) & Chr(10) & "Other Projects not associated to you Member name will be definitively deleted", vbOKCancel, "JOINT") = vbCancel Then GoTo EXITER

For ligne = 3 To 1400

If Range("c" & ligne).Value <> Range("B1").Value And Range("c" & ligne).Value <> "" Then Range("c" & ligne).EntireRow.Delete

Next ligne

EXITER:
Application.EnableEvents = True
End Sub