Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([Cell_audit_interne , Cell_Expert_externe], Target) Is Nothing Then
If Range("Cell_audit_interne").Value = "Oui" Then
Range("Cell_audit_interne_Group").Select
Selection.EntireRow.Hidden = False
Else
Range("Cell_audit_interne_Group").Select
Selection.EntireRow.Hidden = True
End If
If Range("Cell_Expert_externe").Value = "Oui" Then
Range("Cell_Expert_externe_Group").Select
Selection.EntireRow.Hidden = False
Else
Range("Cell_Expert_externe_Group").Select
Selection.EntireRow.Hidden = True
End If
End If
End Sub