Sub VuPasVu()
Application.ScreenUpdating = False
If TypeName([PasVu]) <> "Boolean" Then ThisWorkbook.Names.Add "PasVu", False
ThisWorkbook.Names.Add "PasVu", Not [PasVu]
With [S6:S1003] 'adaptable
.Insert xlToRight
.Offset(, -1) = "=1/(RC[1]>=72)"
On Error Resume Next 'si aucune SpecialCell
.Offset(, -1).SpecialCells(xlCellTypeFormulas, 1).EntireRow.Hidden = [PasVu]
.Offset(, -1).Delete xlToLeft
End With
End Sub