Private Sub CommandButton1_Click()
Dim S As Worksheet 'onglet Synthèse
Dim R As Worksheet 'onglet Recal
Dim DS As Worksheet 'onglet Données de synthèse
Dim DD As Long 'Date de Début (en entier long)
Dim DF As Long 'Date de Fin (en entier long)
Dim DR As Long 'Date de Référence (en entier long)
Dim DL As Integer 'Dernière Ligne
Dim I As Integer 'Incrément
Dim PLV As Integer 'Première Ligne Vide
Set S = Worksheets("Synthèse")
Set R = Worksheets("Recap")
Set DS = Worksheets("Données de synthèse")
DD = CLng(DateSerial(Year(S.Range("E7").Value), Month(S.Range("E7").Value), Day(S.Range("E7").Value)))
DF = CLng(DateSerial(Year(S.Range("G7").Value), Month(S.Range("G7").Value), Day(S.Range("G7").Value)))
DL = R.Cells(Application.Rows.Count, "B").End(xlUp).Row
For I = 4 To DL
DR = CLng(DateSerial(Year(R.Range("B" & I).Value), Month(R.Range("B" & I).Value), Day(R.Range("B" & I).Value)))
If DR >= DD And DR <= DF Then 'pas Or mais And si tu veux que la date soit comprise
PLV = DS.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1
R.Range(R.Cells(I, "BN"), R.Cells(I, "CG")).Copy
DS.Cells(PLV, "A").PasteSpecial (xlPasteValues)
End If
Next I
End Sub