Creation automatique d'une colonne

Je veux importer une table d'un client dont le planning est de 13 semaines

après avoir importé ce fichier, vérifiez s'il y a 13 semaines sinon ajoutez une autre colonne pour la semaine manquante avec un 0

des idées ?

Bonjour,

Vous pourriez tester le nombre de colonnes avec la fonction CountA :

    MsgBox WorksheetFunction.CountA(ActiveSheet.Columns)

Sinon, pour ajouter une colonne, il vous suffit de simuler l'ajout d'une colonne avec l'enregistreur de macro.

daccord merci je vais l'essayer

voila ce code qui marche

Sub columncheck()
'variables 
Dim iCol As Long
Dim iCount As Long
Dim i As Long

'pour obtenir le nombre de colonnes que vous souhaitez insérer avec une input box
iCount = InputBox(Prompt:="Combien de colonne vous voulez ajouter?")

'pour obtenir le numéro de colonne où vous souhaitez insérer la nouvelle colonne
iCol = InputBox _
(Prompt:= _
"Après quelle colonne vous souhaitez ajouter une nouvelle colonne? (Entrer un nombre)")

'boucle pour insérer de nouvelles colonnes
For i = 1 To iCount
    Columns(iCol).EntireColumn.Insert
Next i
End Sub

il reste comment nomme l'entete et remplire la colonne inserer par des 0