Bonjour Nad,
Pardon pour le fichier, je n'avais pas vu qu'il me disait qu'il était trop lourd.
J'ai donc tout supprimé pour ne garder que l'essentiel.
Merci pour ton code mais cela ne fonctionne pas. Cela me sélectionne toute la plage.
Voici le code que j'ai trouvé quand les dates sont sur 1 colonne, peut être que cela peut aider :
Sub Datedujour()
'
' Datedujour Macro
'
'
Dim No_Ligne As Variant
With Worksheets("Planning") 'nom feuille à adapter
.Activate
No_Ligne = Application.Match(CLng(Date), .Range("E1:E2232"), 0)
If Not IsError(No_Ligne) Then
.Range("E" & No_Ligne).Select
Else
Err.Clear
MsgBox "pas trouvé"
End If
End With
End Sub