Fusionner des cellules avec ActiveCell

Bonjour à tous, voilà mon problème:

je réalise un petit "programme" et j'ai besoin de faire fusionner cinq cellules d'une lignes (de A à E). J'arrive à sélectionner la première cellule (A'X') mais je n'arrive pas à sélectionner les 5 cellules puis à les faire fusionner... Après ça je voudrais juste mettre la police en gras à l'intérieur de la cellule...

Je sais que ça peut ne pas paraître difficile mais je n'arrive pas à trouver la solution...

Je vous remercie!

Bonsoir

Essayes

Sub Fusion()
  With ActiveCell.Resize(1, 5)
    .Merge
    .Font.Bold = True
  End With
End Sub

Une petite variante si tu veux toujours de A à E sur la ligne de la cellule active

Sub FusionAE()
  With Range("A" & ActiveCell.Row).Resize(1, 5)
    .Merge
    .Font.Bold = True
  End With
End Sub

Et il y a d'autre moyen

Merci, c'était la réponse à ma question!