Macro pour masquer des colonnes vides après filtrage

Bonjour,

Je fais mes débuts dans les macros et j'ai un fichier Excel avec bcp de colonnes.

Avec les filtres, je sélectionne par exemple 3 personnes auxquelles correspondent des formations et certaines colonnes sont donc vides. Je souhaiterais masquer ces colonnes vides.

Voilà donc comment je me suis dépatouillée : je pensais arriver près du but mais maintenant la macro ne fait absolument plus rien :

Private Sub Supprimercolonnesvides()

Dim i As Integer
Dim j As Integer
Dim NbLignes As Integer
Dim n As Integer

NbLignes = Application.WorksheetFunction.CountA(ActiveSheet.Range("A3").CurrentRegion.Columns(1).SpecialCells(xlVisible)) - 1

For j = 1 To ActiveSheet.Range("A3").CurrentRegion.Columns.Count
n = 0
For i = 4 To NbLignes + 3
If IsEmpty(Cells(i, j)) = True Then n = n + 1
Next i
If n = NbLignes Then Columns(j).Hidden = True
Next j
End Sub

Merci par avance si quelqu'un arrive à m'aider.