'https://forum.excel-pratique.com/excel/cacher-ou-afficher-diverses-lignes-d-une-plage-86188#p499379
'Code de MFerrand.
Sub MasquerLignes()
Dim lgn, i%
lgn = Array(17, 20, 28, 31, "36:292") '<== les lignes à masquer
Application.ScreenUpdating = False
With Worksheets("Sous-Détails de Prix")
.Rows.Hidden = False
For i = 0 To UBound(lgn)
.Rows(lgn(i)).Hidden = True
Next i
End With
End Sub