Bonsoir Am Alive, Gorfael,
Une autre solution, avec la méthode Find.
Private Sub CommandButton1_Click()
Dim C As Range
' Recherche de la date d'aujourd'hui dans la plage
With Sheets('Feuil1').Range('A1:A31')
Set C = .Find(Date, LookIn:=xlValues, LookAt:=xlWhole)
' Exécution d'une des deux macros selon le cas de figure
If Not C Is Nothing Then
'Macro1
Else
'Macro2
End If
End With
End Sub
Cordialement
Bernard