Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False 'désactive les évènements
If CStr([G11]) = "" Then [S13,S15,S17,Z13,Z15,Z17,AJ13,AJ15,AJ17,AN13,AN15,AN17] = ""
If CStr([G11]) = "Inactif" Then [S13,S15,S17,Z13,Z15,Z17,AJ13,AJ15,AJ17,AN13,AN15,AN17] = ""
Application.EnableEvents = True 'réactive les évènements
End Sub