Bonjour,
Masquer, supprimer, des colonnes, des lignes, une feuille, toutes les feuilles, vos explications ne sont pas très précises. Cependant :
Sub MASQUER()
Dim C%, WS As Worksheet, LR&
For Each WS In Worksheets
If WS.Name <> "Recap" Then
LR = WS.Cells(WS.Rows.Count, 1).End(xlUp).Row
For C = 40 To 5 Step -1
Debug.Print LR - 4 - 3
Debug.Print Application.WorksheetFunction.CountBlank(WS.Range(WS.Cells(5, C), WS.Cells(LR, C)))
If Application.WorksheetFunction.CountBlank(WS.Range(WS.Cells(5, C), WS.Cells(LR, C))) - 3 = LR - 7 Then WS.Columns(C).Delete
Next C
End If
Next WS
End Sub
Cdlt,
PS : @3GB, du coup tu conseilles d'utiliser CountA ou CountBlank ? En fait dans la plage il y a des formules sur 3 lignes avec résultat vide ... D'où le -3, et -4 car ma plage commence a la ligne 5, donc -3 -4 = -7.