Bonjour Teddy33,
Tu as de la chance que j'ai ouvert ton post, car je me consacre en priorité à ceux qui n'ont pas de réponse. Donc attention quand tu laisses un second message...
Voici une proposition :
Dans l'événement "Private Sub Bt2_Click() 'Bouton Valider le Lot", tu mets cette ligne ou tu veux, après avoir contrôler que le lot est fini :
Call LotComplet(C1.Text, C2.Text)
Et dans un module standard (sans le Private devant Sub) ou dans le module de l'userform :
Private Sub LotComplet(sArticle, sLot)
Dim lLig As Long, lDernLig As Long
With Feuil3
lDernLig = .UsedRange.Rows.Count
For lLig = 2 To lDernLig
If .Cells(lLig, "A").Text = sArticle And .Cells(lLig, "B").Text = sLot Then
.UsedRange.Rows(lLig).Interior.Color = vbRed
Exit Sub
End If
Next lLig
End With
End Sub
J'ai mis la ligne en rouge, mais à toi d'adapter selon ton besoin.