Sub CopieFormat()
Rows("3:5").EntireRow.Hidden = False ' Ligne 4 visible
Range("C4").Select
Application.CutCopyMode = False ' Cellule C4 copie
Selection.Copy
Range("C4:C1000").Select ' Selection de la colonne
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False ' Copie du format de C4
Rows("4:4").EntireRow.Hidden = True ' Masquage ligne 4
[C5].Select
End Sub