Bonsoir,
Tu trouveras ci dessous un exemple que tu peux adapter selon ton besoin
With Worksheets("Feuil1").Cells.Copy
Worksheets("Feuil2").Cells.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End With
End Sub
Amitié
Air_2