Insérer une colonne (via code VBA)

Bonjour à toutes et à tous,
Sur un tableau de gestion de projet, y a t'il un possibilité d'ajouter une colonne (vide) par rapport à une liste d'intitulés, lorsque le tableau final ne contient pas cette colonne ?

je souhaiterais sur sur le tableau ci-dessus, le code permette d'insérer une colonne Test entre la colonne D et la colonne E.
MAIS... le code devrait pouvoir aussi être en mesure d'insérer la colonne B (A ouvrir) si cette colonne n'existe pas et que le tableau commence par la colonne Cadrage, ajouter la colonne D (Fabrication) si cette colonne n'existe pas et passe directement de la colonne cadrage à la colonne Test ou déploiement.
L'idée est que quels que soient les en-têtes de colonnes du tableau "de départ", on obtienne au final un tableau dont les en-têtes sont

Merci par avance pour toute aide, ou code VBA que vous pourriez me communiquer.

Cordialement.

Jeff

Bonjour jeff73230, bonjour à tous

Essaie de mettre cette macro dans ton fichier :

Sub Finir_Tableau()
If Cells(6, 2) = "Cadrage" Then
    Columns(2).Insert
    Cells(6, 2) = "A ouvrir"
End If
If Cells(6, 4) <> "Fabrication" Then
    Columns(4).Insert
    Cells(6, 4) = "Fabrication"
End If
If Cells(6, 5) <> "Test" Then
    Columns(5).Insert
    Cells(6, 5) = "Test"
End If
End Sub

Cela implique que tu sois positionné sur la bonne feuille

Bonjour Patty5046, Bonjour à toutes et à tous,

Merciiiiiiiiiiiiiiiiiii Patty !!!!
ça fonctionne NICKEL !!!!
J'ai juste modifié le code que tu as envoyé de façon à ce que si plusieurs colonnes sont manquantes, il les crée automatiquement.

Sub Finir_Tableau()
If Cells(6, 2) <> "A ouvrir" Then
    Columns(2).Insert
    Cells(6, 2) = "A ouvrir"
End If
If Cells(6, 3) <> "Cadrage" Then
    Columns(3).Insert
    Cells(6, 3) = "Cadrage"
End If
If Cells(6, 4) <> "Fabrication" Then
    Columns(4).Insert
    Cells(6, 4) = "Fabrication"
End If
If Cells(6, 5) <> "Test" Then
    Columns(5).Insert
    Cells(6, 5) = "Test"
End If
If Cells(6, 6) <> "Déploiement" Then
    Columns(6).Insert
    Cells(6, 6) = "Déploiement"
End If
End Sub

Encore un ENOOOOORME MERCIIIIIII ;-)