Macro sans passer par la formule excel

Bonjour tt le monde,

J'ai fait une macro qui permet de dire le mois, en format texte, en fonction d'une date.
Le pb c'est que je n'ai pas trouvé commant faire sans passer la formul excel (=TEXT( ,"mmmm") ).
Et cela ralentit ma macro.
Pouvez vous me donner une autre solution?

Voici ma macro:

For i = 2 To ligne
 
    Cells(i, 8) = "=TEXT(RC[-1],""mmmm"")"
   
Next i

    Columns("H:H").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False