Macros pour + ou - un mois dans un case

Bonjour,

Quelle serait la macro pour faire défiler les 1er jour du mois dans une case ? (case A1)

Merci d'avance !

Vincent

Bonsoir

Sub PlusUnMois()
Range("A1") = DateAdd("m", 1, Range("A1"))
End Sub

Sub MoinsUnMois()
Range("A1") = DateAdd("m", -1, Range("A1"))
End Sub

Amicalement

Nad

Bonsoir,

J'ai introduit la macro : ça marche, c'est parfait.

Merci