Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Range("b4,d4,C9,C10,b7,d7"), Target) Is Nothing Then Call ModifC19
'End If
If Not Application.Intersect(Target, Range("B5")) Is Nothing And _
UCase(Target.Value) = "OUI" Then
UserForm1.Show
End If
If Not Application.Intersect(Target, Range("D5")) Is Nothing And _
UCase(Target.Value) = "OUI" Then
UserForm2.Show
End If
End Sub