Private Sub FiltreMois(Mois)
Dim DateDeb As Long, DateFin As Long
DateDeb = DateSerial(ComboBox1, Mois - 1, 13)
DateFin = DateSerial(ComboBox1, Mois, 12)
Worksheets("Prepaye").Range("$A$3:$AJ$2015").AutoFilter Field:=1, Criteria1:=">=" & DateDeb, Operator:=xlAnd _
, Criteria2:="<=" & DateFin
End Sub