Création colonnes en fonction de la valeur d'une celulle en macroVBA

Sub Macro2()
'
' Macro2 Macro
'

'
    'récupère le nombre de colonnes à inserer
    NbColo = [A1]
    
    'insere NbColo colonne à partir de la colonne C (3).. par exemple
    Range(Columns(3), Columns(3 + NbColo)).Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NbCol, i As Integer

Application.EnableEvents = False
Application.ScreenUpdating = False
NbCol = Range("a2").value
If Range("a2") <> "" Then
Columns("E:E").Select    'Colonne à partir où celles-ci sont inserées. A modifier
For i = 1 To NbCol
Selection.Insert Shift:=xlToRight
Next i
End If
Application.EnableEvents = True
End Sub

Sub LaMacroquiInseredesColonnes()
 With Worksheets("Feuil2")
 .Range("F1").Resize(, .Range("B3").Value).EntireColumn.Insert Shift:=xlToRight
 End With
End Sub