Selec plage en fonction de 2 dates Zone d'im

Bonjour,
J'avance petit à petit sur mon projet mais j'ai encore une fois besoin de vos lumières en matière de macro VBA.

La macro qui suit fonctionnait jusqu'au moment où j'ai voulu lui demander de me faire une sélection de cellules pour faire un aperçut avant impression en fonction de deux cellules qui sont des dates.

Je cherche mais ne trouve pas la solution, je suppose que c'est un problème de format de date.

Je mets en PJ une version super light de mon classeur.


Private Sub CommandButton1_Click()
'ZI_date Macro
'bouton imprimer
Dim DateDeb As Date, DateFin As Date

Dim Plage As Range
Dim Cellule As Range
Dim lignedeb As Double
Dim lignefin As Double

DateDeb = CDate(Cells(3, 135))
DateFin = CDate(Cells(3, 136))


'Set Plage = ActiveSheet.Range(Cells(1, 6), Cells(15669, 6))
Set Plage = ActiveSheet.Range(Cells(1, 139), Cells(130, 139))
Set Cellule = Plage.Find(What:=DateDeb, LookIn:=xlValues, LookAt:=xlPart, SearchFormat:=False)
If Not Cellule Is Nothing Then
lignedeb = Cellule.Row
End If

MsgBox "ligne: " & lignedeb


If DateFin < DateDeb Then
MsgBox ("La date de fin ne peut être inferieur à la date de début." & Chr(10) & "Game Over même joueur, joue encore !")
Exit Sub
End If


'Selection.AutoFilter Field:=5, Criteria1:=" >= " & DateDeb, Operator:=xlAnd, Criteria2:=" <= " & DateFin
'
''Mise en page
'ActiveSheet.PageSetup.CenterFooter = "Imprimer le &D"
'ActiveSheet.PageSetup.RightFooter = "&P/&N"
'With ActiveSheet.PageSetup
' .CenterHeader = _
' "&""Arial,Gras," & "PLANNING du " & Format(DateDeb, "d mmm") & " au " & Format(DateFin, "d mmm yyyy")
'End With
''ActiveSheet.PageSetup.PrintAreas = Range(cells(lignedeb,6),cells(lignefin,75)).Select
'ActiveSheet.PageSetup.PaperSize = xlPaperA4
'ActiveSheet.PageSetup.Orientation = xlLandscape
'ActiveWindow.SelectedSheets.PrintPreview
''Remise en l'etat
'Selection.AutoFilter Field:=5
End Sub