Recopie format cellule

Bonjour,

Je voudrais dans mon code

Lire une cellule dans une feuille et la recopier dans une autre (la valeur + le format de cellule)

Habituellement je fais ça :

Sheets("Différences").Range("C3") = Sheets("Sorties").Range("C3")
Sheets("Sorties").Select
Range("C3").Select
Selection.Copy
Sheets("Différences").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False


mais je trouve ça assez lourd la recopie de format : je voudrais recopier le format sans passer par un copier coller.

je me demandais s'il existait pas une propriété pour range pour recopier le format de cellule automatiquement

j'ai essayé
Sheets("Départ").Range("C1").format=Sheets("Arrivée").Range("A1").format

mais ça ne fonctionne pas...

Merci d'avance pour votre aide