Sub Bouton1_QuandClic()
Dim i As Long, ref As Longs, Dte As Long
ref = ThisWorkbook.Worksheets(2).Cells(2, 3).Value
sDte = 0 ' ici mon indice de ligne
For i = 1 To 35
If ThisWorkbook.Worksheets(2).Cells(i, 1).Value <= ref Then
sDte = sDte + 1
End If
Next
MsgBox sDte
End Sub