Bonjour,
je rencontre un petit problème avec ce code :
Sub synthese()
Dim i As Long
For i = 3 To 12
Sheets("Synthese_Stagiaires").Range(Cells(i, 2), Cells(i, 39)) = Sheets("1").Range("B56:AN56").Value
Next i
End Sub
Ce code fonctionne mais bien évidemment me copie 10 fois...