Ajouter 12 mois

Bonjour a tous,

Mon probleme se trouve dans le fichier ci joint

Remarque : le nombre des lignes du tabeaux sont variables

Comment faire ca en code VBA pas en formule s'il vous plait

Merci d'avance

solution trouve!

Merci

voila le code

  Sub homoginisation()

Dim i As Long, l As Integer

l = Sheets(".......").Range("A9").End(xlDown).Row

For i = 9 To l

       If Cells(i, 24).Value = "" And Cells(i, 24).Value = "Non resttituée" Then
    Cells(i, 25).Value = "" 'si la cellule de recuperation du marque est vide rien n'est ajouter
    ElseIf Cells(i, 24).Value <> "" And Cells(i, 24).Value <> "Non resttituée" Then
        Cells(i, 25).Value = DateAdd("m", 12, Cells(i, 24)) 'Rempli la colonne prochaine attribution
End If

    Next i

End Sub