Comment ajouter un mois à une date en VBA

Bonjour,
je voudrais ajouter 1 mois en B2 en prenanr comme référence la cellue qui est en B1 comme dans le code (dans mettre 2 dans date)
Exemple
1er samedi du mois Janvier dans [B1]
1er samedi du mois de février dans [B2] et ainsi de suite jusqu'au mois de décembre en prenant en référence la cellule précedénte

Code:

---

=DATE($P$5;1;1) + MOD(5 - JOURSEM(DATE($P$5;1;1);3);7)

---

Merci pour votre aide
Patrick

Bonjour


modifie :

Code:

---

DATE($P$5;1;1)

---

par :

Code:

---

DATE(Annee(b1);mois(b1)+1;1)

---

tu peux aussi utiliser la formule mois.decaler

Code:

---

=MOIS.DECALER(AUJOURDHUI();1)

---

Merci à tous, c'est super
Patrick