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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.