selectio de plage de données avec critéres

Sub Macro1()
Dim d As String 'déclare la variable d (Date demandée)
Dim dt As Date 'déclare la variable dt (DaTe)
Dim r As Range 'déclare la variable r (Recherche)
 
début: 'étiquette
'définit la date demandée
d = InputBox("Veuillez indiquer la date de référence (jj/mm/aaaa).", "DATE")
If d = "" Then Exit Sub 'si la boîte d'entrée n'est pas renseignée ou si bouton "Annuler", sort de la procédure
On Error GoTo début 'si une erreur se produit, retourne au début du code via l'étiquette "début"
dt = CDate(d) 'définit la variable dt (une entrée non convertible en date provoque une erreur comme "30/02/2007" par exemple)
'définit la recherche r (recherche la date demandée dans la colonne CS de l'onglet "Feuil3"
Set r = Sheets("Feuil3").Columns(97).Find(dt, , xlFormulas, xlWhole)
If Not r Is Nothing Then 'condition : si il existe au moins une occurrence de la date
    Range("CV115:CV" & r.Row).Select 'sélectionne la plage correspondante
Else 'sinon
    MsgBox "Date non trouvée !" 'message
End If 'fin de la condition
End Sud