Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
If Target.Column = 2 And Cells(Target.Row, 2) = "oui" Then
For i = 2 To Range("A1").End(xlDown).Row
If i <> Target.Row And Cells(i, 2) = "oui" And Cells(i, 3) = Cells(Target.Row, 3) Then
Cells(Target.Row, 2) = "non"
MsgBox ("[COLOR="Blue"]Cette catégorie ayant déjà un fournisseur, votre saisie n'a pas été prise en compte[/COLOR]")
End If
Next i
End If
End Sub