Raccourcir l'enregistreur de macro

Bonjour,

Pourriez-vous m'aider à raccourcir ce petit code de l'enregistreur de macro ?

Range("B2").Select
    Selection.Copy
    Range("B6").Select
    ActiveSheet.Paste
    Selection.Font.Bold = True

Merci.

Bonsoir Tespark, le forum,

Peut-être ainsi....

Range("B2").Copy Range("B6"): Range("B6").Font.Bold = True

Cordialement,

Merci beaucoup pour cette réponse xorsankukai.

Mais intégré à ma macro qui est traité par d'autres macros ça ne fonctionne pas.

Alors que le code de l'éditeur de macro fonctionne.

En tout cas merci pour ta proposition

Dans mon projet j'ai transcris (avec les bonnes cellules)

[E32].Copy [E38]: [E38].Font.Bold = True