Sub Caseàcocher1_Cliquer()
Dim R As Range
Set R = ThisWorkbook.Sheets("Besoin").Range("B:B").Find(ThisWorkbook.Sheets("Produit").Range("B2").Value)
If R Is Nothing Then
' le produit n'est pas dans la liste des besoins : alors on l'y ajoute
ThisWorkbook.Sheets("Besoin").Range("B" & ThisWorkbook.Sheets("Besoin").Range("B:B").End(xlUp).Row + 1).Value = ThisWorkbook.Sheets("Produit").Range("B2").Value
Else
'le produit est déjà dans la liste des besoins : alors on l'enlève
ThisWorkbook.Sheets("Besoin").Range("B" & R.Row).EntireRow.Delete
End If
End Sub