Private Sub CommandButton1_Click()
Dim Wb As Workbook, i As Integer
i = 1
For Each Wb In Workbooks
If Wb.Name <> ThisWorkbook.Name Then
Wb.Activate
Ligne = 2
debut = Ligne
For Wb = 1 To 12
ActiveWorkbook.Sheets("récap").Range("A2:O204").Copy Destination:=Workbooks("USFRM").Sheets("Feuil1").Cells(Ligne, 2)
Ligne = Ligne + 200
Next Wb
End If
Next
End Sub