Ajouter une année selon date dans cellule

Sub Ajout_date()
Dim c As Range, i As Byte
Range("B2:J65536").ClearContents
For Each c In Range("A2:A65536").SpecialCells(xlCellTypeConstants, 1)
For i = 1 To 9
c.Offset(0, i) = DateSerial(Year(c) + i, Month(c), Day(c))
Next
Next
End Sub

Sub Ajout_date()
Dim c As Range, i As Byte
Range("B2:J65536").ClearContents
For Each c In Range("A2", Range("A65536").End(xlUp))
If IsDate(c) Then
For i = 1 To 9
c.Offset(0, i) = DateSerial(Range("A1").Offset(0, i), Month(c), Day(c))
Next
End If
Next
End Sub

Sub Ajout_date()
Dim i As Integer, j As Integer
With ThisWorkbook.Sheets("Feuil1")
    For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
        For j = 2 To .Cells(1, .Columns.Count).End(xlToLeft).Column
            If IsDate(.Cells(i, 1).Value) Then .Cells(i, j).Value = DateAdd("yyyy", j - 1, CDate(.Cells(i, 1).Value))
        Next j
    Next i
End With
End Sub