Sub Macro1()
Dim e As Variant 'déclare la variable e (Entrée)
Dim d As Date 'déclare la variable d (Date)
Dim r As Range 'déclare la variable r (Recherche)
Dim pa As String 'déclare la variable pa (Première Adresse)
e = Application.InputBox("Tapez la date cherchée au format jj/mm/aa !", "RECHERCHE de DATE", Type:=2) 'définit l'entrée e
If e = "" Then Exit Sub 'si la boîte d'entrée n'est pas renseignée, sort de la procédure
If e = False Then Exit Sub 'si bouton annuler, sort de la procédure
d = CDate(e) 'définit la date d
Set r = Cells.Find(d, , xlFormulas, xlWhole) 'définit la recherche r
If Not r Is Nothing Then 'condition : si il existe au moins une occurrence trouvée
pa = r.Address 'définit l'adresse de la première occurrence trouvée
Do 'exécute
r.Select 'sélectionne l'occurrence trouvé
'si "Oui" au message, redéfinit la recherche r (occurrence suivante), sinon, sort de la procédure
If MsgBox("Chercher l'occurrence suivante ?", vbYesNo) = vbYes Then Set r = Cells.FindNext(r) Else Exit Sub
Loop While Not r Is Nothing And r.Address <> pa 'boucle tant qu'il existe de nouvelles occurrences ailleurs qu'en pa
MsgBox "Il n'y a plus d'occurrences de la date cherchée !" 'message
Else 'sinon (condition 1)
MsgBox "La date cherchée n'existe pas !" 'message
End If 'fin de la condition
End Sub