Discussion :

[ayarikhaoulakoukou]

Bonjour

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

[mercatog]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ayarikhaoulakoukou]

merci c'est exactement sa.