Complement macro débutant

Bonjour,
Je débute avec les macros sur excel et j'aurai besoin d'un coup de main pour terminer la macro suivante. Est ce que quelqu'un pourrait m'aider svp ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub PROCHAIN_DONIBANE() ' ' PROCHAIN_DONIBANE Macro ' With Selection .Value = "PROCHAIN" .Interior.ColorIndex = 46 .Font.Name = "Arial" .Font.Size = 22 .Font.Bold = True .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Orientation = xlVertical End With   End Sub

---

J'aimerai ensuite appliquer les mêmes commandes (exception faite du texte PROCHAIN qui serait remplacé par DONIBANE sur la cellule située directement à droite de celle sur laquelle la macro a été exécuté.
Si quelqu'un pouvait compléter svp ce serait super cool.

Merci

Hello,

qqchose comme ça (mais ça n'est pas du tout optimisé ni transposable)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub PROCHAIN_DONIBANE() ' ' PROCHAIN_DONIBANE Macro '   Selection.Value = "PROCHAIN" Selection.Offset(0, 1).Value = "DONIBANE" Selection.Resize(, 2).Select   With Selection .Interior.ColorIndex = 46 .Font.Name = "Arial" .Font.Size = 22 .Font.Bold = True .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Orientation = xlVertical End With   End Sub

---