Supprimer colonnes sur excel

timot50 -  
Bonjour,
Je voudrais savoir comment faire pour supprimer des colonnes lorsqu'elles sont vides.
En faite j'ai un tableau mais je vais pas toujours avoir le même nombre de colonnes et je voudrais qu'Excel gère le nombre de colonne automatiquement.
Merci d'avance.

1 réponse

  1.  Mike-31
    Salut,

    Essayes ce code

    Sub Supprime_colonnes_vides()
    Dim i
    '------------surveille de la colonne 25 à 1 (Y à A)
    For i = 25 To 1 Step -1
    If Cells(65536, i).End(xlUp).Row = 1 Then Cells(1, i).EntireColumn.Delete
    Next i
    End Sub

    0