Sub Le_Défilé_Sauvage_1954(Optional By_Jesse_Hibbs)
Dim NBLIG As Long, Ma_Formule_en_L4 As String
NBLIG = Cells(Rows.Count, 1).End(xlUp).Row
Ma_Formule_en_L4 = "=ADDRESS(ROW(),COLUMN(),4)"
Range(Cells(4, "L"), Cells(NBLIG, "L")).Formula = Ma_Formule_en_L4
End Sub
Sub Défiler(Optional By_Stromae)
Dim NBLIG As Long
NBLIG = Cells(Rows.Count, 1).End(xlUp).Row
[L4].Resize(NBLIG - 3).Formula = "=ADDRESS(ROW(),COLUMN(),4)"
End Sub