Insertion colonne et onglet par ordre alphabétique

Bonjour

Lorsqu'on lance la macro "Nouveau Magasin" dans la Feuille Moyenne , je souhaiterais renseigner un nom du magasin via une boite de dialogue qui alimenterait l'entête de la colonne ainsi que la nouvelle feuille...

Vous remerciant par avant

Bien cordialement

Bonjour,

Avec un inputbox peut être ?

Sub Bouton2_Cliquer()
Dim NbCol%, NOM$
NOM = InputBox("Merci de renseigner le nom de magasin", "NOUVEAU MAGASIN")
Sheet_Moyenne = Sheets("Moyenne").Name
NbCol = ActiveWorkbook.Sheets(Sheet_Moyenne).Cells(8, Columns.Count).End(xlToLeft).Column
PLAGE = LettreColonne(NbCol - 1) & "1:" & LettreColonne(NbCol) & "85"
ActiveSheet.Range(LettreColonne(NbCol - 1) & "1:" & LettreColonne(NbCol) & "85").Copy Destination:=ActiveSheet.Range(LettreColonne(NbCol + 1) & "1")
ActiveSheet.Range(LettreColonne(NbCol + 1) & "6") = NOM
Sheets("Mag_vierge").Copy Before:=Sheets(Sheet_Moyenne)
Sheets("Mag_vierge (2)").Name = NOM
Sheets(Sheet_Moyenne).Select
End Sub

Cdlt,

Bonjour,

Merci, merci beaucoup de votre aide, c'est exactement ce que je souhaitais. Un détail, néanmoins, j'aurais souhaite si c'est possible une insertion des colonnes et des feuilles par ordre alphabétique....

Je vous remercie

Bien cordialement

Bonjour,

Ci-joint votre fichier corrigé. J'ai masqué la feuille modèle "Mag_Vierge" je n'ai pas besoin de l'avoir affichée. Je vous laisse tester :

Sub Bouton2_Cliquer()
Dim NbCol%, NOM$, POS%
Dim RNG As Range
NOM = InputBox("Merci de renseigner le nom de magasin", "NOUVEAU MAGASIN")
Set RNG = Range(ActiveSheet.Cells(6, 1), ActiveSheet.Cells(6, ActiveSheet.Cells(8, Columns.Count).End(xlToLeft).Column))
POS = Application.Match(NOM, RNG, 1) + 1
Range("F:G").Copy
Columns(POS + 1).EntireColumn.Insert Shift:=xlToRight
ActiveSheet.Cells(6, POS + 1) = NOM
Worksheets("Mag_vierge").Copy After:=Sheets((POS - 5) \ 2)
Worksheets("Mag_vierge (2)").Name = NOM
Worksheets(NOM).Visible = True
Worksheets("Moyenne").Select
End Sub

Cdlt,

Merci beaucoup. C'est extra !!!