re, salut Saboh12617,
oui, saboh a raison, attendez un moment et attaquez les problèmes qui se posent, éventuellement le lenteur du fichier.
par exemple
Sub masquer_demasquer2()
With Sheets("???") 'mieux de préciser la feuille
If .Rows(54).Hidden = False Then
.Range("54:68").EntireRow.Hidden = True 'sans boucle
.Range("85:100").EntireRow.Hidden = False
Else
'...
End If
End With
End Sub
éviter d'utiliser "select" et "activate", cela sert (souvent) à rien et ralentit la macro
essayer à utiliser vos tableaux structurés au maximum, par exemple "r = Feuil7.Range("A1:F" & Feuil7.[A100000].End(xlUp).Row)", si on a un TS, on sait directement le nombre de lignes