Inserer des colonnes a des endroit precis

bonjour

j'aimerais pouvoir insérer des colonnes a des endroit précis sur une même feuille

En fonction d'un chiffre dans la colonne A

je vous transmet mon dossier

merci pour vos reponse cordialement

Salut

Mettez ce code dans Feuil 1

Private Sub Worksheet_Change(ByVal Target As Range)

If Selection.Count > 1 Then Exit Sub
If Target.Column = 1 And Target.Row > 9 Then
    Application.ScreenUpdating = False
    Select Case Target.Value
    Case Is = 2:
    Columns("M:Q").EntireColumn.Hidden = False
    Columns("X:AA").EntireColumn.Hidden = True
    Case Is = 4
    Columns("M:Q").EntireColumn.Hidden = True
    Columns("X:AA").EntireColumn.Hidden = False
    Case Else
    Columns("M:AA").EntireColumn.Hidden = False
    End Select
    Application.ScreenUpdating = True
End If

End Sub

rebonjour et encore merci

ca fonctionne a merveille

juste encore une petite chose

avec ta methode quand je retire le 2 dans la colonne A les colonne du 4 s'enleve aussi

je souhaiterais que quand j'enleve le 2 ou 4 seul les colonne du 2 ou du 4 s'enleve car j'en ai 10 a faire

merci a toi pour tes reponse