Macro insertion de colonne

Sub InsereColonne()
Dim DerLigne As Long
    With Worksheets("Feuil1")
        DerLigne = .Range("A" & .Rows.Count).End(xlUp).Row
        .Columns("A:A").Insert Shift:=xlToRight
        .Range("A1") = "Famille"
        .Range("A2").Formula = "=INT($B2/100)"
        .Range("A2").AutoFill Destination:=.Range("A2:A" & DerLigne)
    End With
    Set Plage = Nothing
End Sub

Sub InsereColonne()
Dim DerLigne As Long
Dim Colonne As String
    With ActiveSheet
        Colonne = Split(ActiveCell.Offset(0, 1).Address, "$")(1)
        ActiveCell.EntireColumn.Insert Shift:=xlToRight
        DerLigne = .Range(Colonne & .Rows.Count).End(xlUp).Row
        .Cells(1, ActiveCell.Column) = "Famille"
        .Cells(2, ActiveCell.Column).Formula = "=INT(" & Colonne & "2/100)"
        .Cells(2, ActiveCell.Column).AutoFill Destination:=.Range(Cells(2, ActiveCell.Column), .Cells(DerLigne, ActiveCell.Column))
    End With
    Set Plage = Nothing
End Sub