Macro pour centrer du texte

Bonjour

J'ai testé ce code, il fonctionne bien mais le texte est au centre en bas de la cellule.
Cordialement.

Bonjour

Code:

---

1 2 3 4

With Sheets("Feuil2").Range("C27") 'A adapter .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With

---

merci c'est exactement sa.