Incrémentation d'une macro

Bonjour à tous !!!

Je suis nouveau sur le forum. Étant débutant en VBA, j'ai crée une macro qui me permet de calculer l'ancienneté d'un fichier a partir de la date inscrite dans une cellule et de la date saisie par l'utilisateur. Cependant, je n'arrive pas a incrémenter ma macro que je vous mets ci-dessous :

Code:

---

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

Sub Ancienneté()   Dim firstDate As Date   Dim Ancien As Date   ActiveSheet.Range("AB1").Value = "Ancienneté création"   firstDate = CDate(InputBox("Entrer une date"))   ActiveSheet.Range("AB2").Value = DateDiff("m", ActiveSheet.Range("O2").Value, firstDate)   ActiveSheet.Range("AB2").NumberFormat = "General"   End Sub

---

En clair, je n'arrive pas à faire en sorte que ma macro prenne automatiquement la cellule d'après comme référence au calcul, ici la cellule O3. J'espère avoir été assez clair dans ma demande, dans le cas contraire n'hésitez pas a m'en faire part et merci d'avance pour votre aide.

Bonjour au forum
Cette boucle fera de même jusqu'à la dernière ligne de la colonne O
Si tu vérifie par rapport à une unique firstDate issue de l'umputbox, tu le fais sortir de ta boucle

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim firstDate As Date Dim i as long   Range("AB1").Value = "Ancienneté création" For i = 2 To Range("O65536").End(xlUp).Row firstDate = CDate(InputBox("Entrer une date")) 'avant le For i... si une unique valeur Range("AB" & i).Value = DateDiff("m", Range("O" & i).Value, firstDate) Next i   Range("AB2:AB" & Range("AB65536").End(xlUp).Row).NumberFormat = "General"

---

Effectivement ça fonctionne !!!
Merci beaucoup mercatog!!!