Bonsoir,
Dans votre code vous déclarer DMin as long, puis plus bas vous dite DMin = Cdate(TD) --> Dmin devient date ...
Essayez le code comme ceci
Public Sub CommandButton2_Click()
Dim DMin As Date, DMax As Date, Plg1 As Long, Plg2 As Long
On Error Resume Next
Plg1 = Sheets("Planning").Range("A:A").Find(CDate(TD)).Row
Plg2 = Sheets("Planning").Range("A:A").Find(CDate(TF)).Row
MsgBox Plg1
MsgBox Plg2
Unload Me
End Sub
Si ok, merci de cloturer le fil en cliquant sur le petit v en haut à droite
Cordialement