Re,
Lorsqu'on parle de date sur Excel, il est presque primordiale de le faire au bon format
Voici un code qui devrait convenir avec une date 01/05/2022 en E1
Sub Ajoute1Mois()
Dim Cel As Range
With ActiveSheet
' Définir la nouvelle cellule
Set Cel = .Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)
' Inscrire la formule dedans
Cel.FormulaLocal = "=MOIS.DECALER(" & Cel.Offset(0, -1).Address & ";1)"
' La mettre au bon format
Cel.NumberFormat = "mmm yyyy"
End With
End Sub
A+