Sub Tridate()
Dim onglet As String
Dim datedebut As Date, datefin As Date
With Sheets("Graphi")
datedebut = .Range("U10")
datefin = .Range("U11")
onglet = .Range("J2")
If .Range("U10") = "" Then
MsgBox "Entrer Une Date De Début"
Else
If .Range("U11") = "" Then
MsgBox "Entrer Une Date De Fin"
Else
If IsDate(datedebut) = False Or IsDate(datefin) = False Then
MsgBox "Le format n'est pas une date !"
Exit Sub
End If
End If
End If
With Sheets(onglet)
.Range("A1").AutoFilter Field:=4, Criteria1:=">" & datedebut, _
Operator:=xlAnd, Criteria2:="<" & datefin
End With
End With
End Sub