Bonjour,
si tu fais des recherches sur internet, tu verras que la méthode find donne souvent des problèmes quand on cherche des dates et est sujet à des restrictions quant au formattage des dates sur lesquelles on fait les recherches.
je te propose une méthode via une boucle
Private Sub Worksheet_Activate()
For Each c In ActiveSheet.Range("L2:ZZ2")
If c.Value = Int(Now) Then c.Select: Exit For
Next
End Sub