Re titin
Regarde si ceci pourrait t'aider
Private Sub CommandButton1_Click()
Dim MaDate As Long
On Error GoTo Erreur
MaDate = Date
Cells(Application.WorksheetFunction.Match(MaDate, Worksheets(1).Range("B:B"), 0), 2).Select
Exit Sub
Erreur:
MsgBox ("La date d'aujourd'hui n'est pas dans la colonne")
End Sub
Mytå