re,
la macro (masquagelignesBM) marche sur le feuille active ...
Impossible car il y a deux erreurs ici ..
Application.WorksheetFunction.CountBlank(Wf.Range("D&b:X&b")) >= 21 Then
Rows(b).EntireRow.Hidden = True
ligne à remplacer par celle-ci
If Application.WorksheetFunction.CountBlank(Wf.Range("D" & b & ":X" & b)) >= 21 Then
Wf.Rows(b).EntireRow.Hidden = True
Si ok merci de ne pas omettre de cliquer sur le V vert pour cloturer le fil
Amicalement