Reproduire le format de cellule

Bonjour , je cherche un code permettant de reproduire le format de la cellule visible de droite.

J'ai essayée sous forme de macro , mais je voudrais qu'il soit écrit avec un offset . Je ne me souviens plus comment l'on fait.

Ci joint un exemple du résultat attendu:

Merci pour votre aide

Bonjour

Vérifies ces macros

Sub Macro1()

  Columns("A:C").Hidden = False
  Columns("B:B").Hidden = True

  With Range("A6")
    .Offset(0, 2).Copy
    .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
                        SkipBlanks:=False, Transpose:=False
  End With
  Application.CutCopyMode = False
End Sub

Sub Macro2()

   Columns("A:C").Hidden = False
   Columns("C:C").Hidden = True
   With Range("A6")
    .Offset(0, 1).Copy
    .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
                        SkipBlanks:=False, Transpose:=False
  End With
   Application.CutCopyMode = False
End Sub

Merci , c'est bien ce que je voulais.

Je penses pouvoir le développer sur mon classeur.