Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$6" And Target = "Oui" Then
'...ta macro
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'A voir ?!
If Target.count > 1 Then Exit Sub
If Target.Column = 6 And Target = "Oui" Then
'...ta macro
End Sub
x = Target.Row