Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
Dim DR As Date 'déclare la variable DR (Date de Référence)
Dim DC As Date 'déclare la variable DC (Date Calculée)
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet O
For I = 1 To DL 'boucle sur toutes les lignes I de 1 à DL
'définit la date de référence DR
DR = DateSerial(Year(O.Cells(I, "A").Value), Month(O.Cells(I, "A").Value), Day(O.Cells(I, "A").Value))
'définit la date calculée DC
DC = DateSerial(Year(DR), Month(DR) + O.Cells(I, "B").Value, Day(DR))
O.Cells(I, "C").Value = DC 'renvoie la date calculée dans la colonne D de la ligne I
Next I 'prochaine ligne de la boucle
End Sub