Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws1 As Worksheet
Dim dateRow As Variant
Dim DateCrit As Variant
' Spécifiez la feuille de calcul
Set ws1 = ThisWorkbook.Sheets("Feuil1")
If Target.Count > 1 Or IsEmpty(Target) Then Exit Sub
' Vérifiez si la modification a eu lieu dans le Tableau1 et dans la colonne A Date
If Not Intersect(Target, ws1.Range("C:C")) Is Nothing Then
' Initialisation de DateCrit
DateCrit = CLng(Target.Value)
' Recherche la date dans la colonne A
dateRow = Application.Match(DateCrit, ws1.Range("A2:A" & ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row), 0)
If Not IsError(dateRow) Then
Debug.Print "DateRow = " & dateRow
End If
End If
End Sub