Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, FirstAddress As String
'Cellule "recherche": ici Range("A1")
If Target.Address = Range("A1").Address Then
If Target.Value = "" Then Exit Sub
Set c = Cells.Find(Target.Value, , xlValues, xlWhole)
If Not c Is Nothing Then
FirstAddress = c.Address
Do
If c.Address <> Target.Address Then
c.Select
If MsgBox("Passez à la cellule suivante?", vbYesNo, "Information") = vbNo Then Exit Sub
End If
Set c = Cells.FindNext(c)
Loop While Not c Is Nothing And c.Address <> FirstAddress
End If
MsgBox "Terminé"
End If
End Sub