Supprimer des colonnes vides

Bonjour,

J'ai beau chercher je ne trouve pas de solutions pour supprimé des colonnes vides.

le principe de base :

j'ai un tableau avec en abscisse des sites (site 1; site 2 ...). En ordonnée des intitulés de plat. (entrée 1; entrée 2; plat 1; plat 2 ...) et au croisement de ces lignes / colonnes la quantité que le site commande.

tous les sites ne commandes pas tous les jours ni tous les plats. je souhaites donc supprimé les colonnes des sites ne commandant rien puis supprimé les ligne qui n'ont aucun plat.

histoire d'avoir en finalité juste les plats et la quantité commandé avec le nom du site au dessus...

j'avais fait un filtre avancé pour supprimé les lignes vides. sa ok. mais après pour les colonnes c'est une autre histoire. comme en plus le nombre de plat présenté n'est pas toujours identique d'un jour sur l'autre ...

des idées?

je vous joint un fichier excel d'exemple pour plus de facilité :

Bonsoir,

un petit essai voir si cela te conviens.

Cordialement.

Bonsoir,

Essaye le code suivant :

Sub suppression()
    Sheets("BDD").Activate
    For i = 75 To 3 Step -1
        If WorksheetFunction.CountIf(Range(Cells(i, 1), Cells(i, 77)), "<>") = 0 Then
            Rows(i).Delete
        End If
    Next i
    For i = 77 To 2 Step -1
        If WorksheetFunction.CountIf(Range(Cells(3, i), Cells(77, i)), "<>") = 0 Then
            Columns(i).Delete
        End If
    Next i
End Sub

Bonjour,

un grand merci, les deux réponses sont parfaites !

vous êtes vraiment des pros.

bon maintenant j'ai plus qu'à aller acheter "le VBA pour les nuls"

merci beaucoup !