Bonjour,
Pas grand chose à changer, sauf à supprimer les "Select" totalement inutile
Sub AACopieFormat()
With ThisWorkbook.Sheets("NomDeLaFeuill")
.Range("H25:H26").Copy
.Range("A3:F7820").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End With
End Sub
A+