Bonjour,
Exemple pour le code GAS. Modifie comme suit :
Sub Gas()
If Range("$G$13") = True Then
Range("32:32,39:39,44:44,49:49,54:54").EntireRow.Hidden = True
End If
If Range("$G$13") = False Then
Range("32:32,39:39,44:44,49:49,54:54").EntireRow.Hidden = False
End If
Range("A1").Select
End Sub
Refais la même chose pour les trois autres cases à cocher.
Amcialement