Dim plage1 As Range
Dim c As Range, d As Range
With ThisWorkbook.Sheets("Inventaire")
Set plage1 = Range("A4:A" & Range("A100000").End(xlUp).Row)
For Each c In plage1
If TB_Libellé.Text = c Then
If TB_Magasin.Text = Range("L" & c.Row) Then MsgBox "Code article " & TB_Libellé.Text & " de magasin " & TB_Magasin.Text & " deja saisie,Voueillez entrer un autre code", vbinfo
Exit Sub
End If
Next
End With