Public dl As Integer 'déclare la variable dl (Dernière Ligne)
Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim pl As Range 'déclare la variable pl (PLage)
Dim a As Integer 'déclare la variable a (Année)
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée dl de la colonne 1 (=A)
Set pl = .Range("A2:A" & dl) 'définit la plage pl
For Each cel In pl 'boucle 1 : sur toutes les cellules de la plage pl
a = CInt(cel.Offset(0, 14).Value) 'définit l'année a
For col = 33 To 38 'boucle 2 : sur les colonnes 33 à 38 (AG à AL)
.Cells(cel.Row, col).Value = a 'place l'année a
a = a - 1 'décrémente l'année a
Next col 'prochaine colonne de la boucle 2
Next cel 'prochaine cellule de la boucle 1
End With 'fin de la prise en compte de l'onglet "Feuil1"
End Sub
Sub Macro2()
Dim i As Integer 'déclar la variable i (Incrément)
For i = dl To 2 Step -1 'boucle inversée des ligne dl à 2
If Sheets("Feuil1").Cells(i, 33).Value = Year(Date) Then Rows(i).Delete 'si la valeur de la cellule correspond à l'année en cours, supprime la ligne
Next i 'prochaine ligne de la boucle
End Sub