Générer colone via maccro

Bonjour,

Mon fichier test est composé du tableau suivant :

Ce que je souhaite faire est de créer une macro qui me demande combien de colonne je veux ajouter en E et que ces colonnes créer soit numéroter de la façon suivante : AA, AB,AC,AD,AE...

Si par exemple je demande 5, alors le résultera sera le suivant :

Merci à vous !

Bonjour, en PJ une solution

EDIT : je n'avais pas vu le fichier que tu avais joint à ton poste, voici mon code adapté à ton cas :

Sub AjoutColonnes()
Dim NbCol As Long, i As Long

NbCol = Application.InputBox("Nombre de colonne à ajouter :", "Ajouter colonnes", Type:=1)
If NbCol = 0 Then Exit Sub
Application.ScreenUpdating = False
For i = NbCol To 1 Step -1
    ThisWorkbook.Worksheets("Feuil1").Range("E:E").Insert Shift:=xlToRight
    ThisWorkbook.Worksheets("Feuil1").Range("E6") = Split(Cells(1, 27 + i - 1).Address, "$")(1)
Next i
Application.ScreenUpdating = True
End Sub