Sub groupe2()
With Rows("160:184")
If Not .Hidden Then .Hidden = True Else .Hidden = False
End With
With Range("C:L")
If Not .EntireColumn.Hidden Then .EntireColumn.Hidden = True _
Else .EntireColumn.Hidden = False
End With
Rows(171).Hidden = False
End Sub