Private Sub CommandButton1_Click()
Application.ScreenUpdating = False 'Fige l'ecran
Sheets("Feuil2").Range("A9:AF60000").Clear 'Efface les données précédentes
ligne = 9 '#####MODIF#####
Set Dest = Sheets("Feuil2").Range("A" & ligne) '#####MODIF#####
DateDeb = DateSerial(ComboBox2.Value, ComboBox1.Value, 1) 'Date de debut et date de Fin (mois à extraire)
DateFin = DateSerial(ComboBox2.Value, ComboBox1.Value + 1, 1) 'Date de debut et date de Fin (mois à extraire)
For Each X In Sheets("Liste").Range("J6:J" & Sheets("Liste").Range("A60000").End(xlUp).Row) 'Boucle sur les dates
If X.Value >= DateDeb And X.Value < DateFin Then 'Si la date correspond au mois recherché
X.Offset(0, -9).Resize(1, 32).Copy Dest
ligne = ligne + 1 '#####MODIF#####
Set Dest = Sheets("Feuil2").Range("A" & ligne) '#####MODIF#####
End If
Next
Unload Me
Application.ScreenUpdating = False
Sheets("Feuil2").Select
End Sub