Insert colonne

Bonjour,

Pouvez-vous m'aider svp ? Je souhaiterai avoir une macro afin d'insérer une colonne sup quand la colonne

précédente s'appelle "vente".

Fichier excel joint

Merci bcp

Bonjour,

Voilà une proposition :

Sub InsertCol()

Application.ScreenUpdating = False 'Désactive l'affichage
Application.Calculation = xlCalculationManual 'Désactive le recalcule auto des formules

Dim ColMax As Integer, Col As Integer

With Sheets("INSERT") 'Tout objet commençant par "." se réfère à cette feuille
    ColMax = .Cells(8, .Columns.Count).End(xlToLeft).Column 'Identifie la dernière colonne avec données
    For Col = ColMax To 1 Step -1 'Parcourt les colonnes en partant de la dernière
        If .Cells(8, Col).Value = "Vente" Then .Columns(Col + 1).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove 'Insertion si en-tête = "vente"
    Next Col
End With

Application.ScreenUpdating = True 'Réactive l'affichage
Application.Calculation = xlCalculationAutomatic 'Réactive le recalcule auto des formules

End Sub

Merci Pedro22 c'est nickel