Envoyer des références par mails en fonction d'une valeur

Bonjour à tous,

J'aurai besoin d'aide pour la réalisation d'une macro.

J'ai un tableau contenant une colonne avec la référence d'une pièce et une colonne contenant son nombre d'utilisation restante avant de devoir effectuer un contrôle. Une fois que ce nombre arrive à 0 j'aimerai qu'un utilisateur reçoive un mail lui indiquant qu'il faut envoyer la pièce référencée au contrôle.

Je dispose déjà d'un code pour l'envoie du mail, il me manque celui me permettant d'identifier qu'une référence à atteint le nombre d'utilisation 0, et de récupérer la référence pour la joindre au mail.

Ci-joint le code pour le mail :

Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)

        strbody = "<font size=""3"" face=""Calibri"">" & _
                  "Bonjour,<br><br>" & _
                  "Le lot<B> " & Cells(ActiveCell.Row, 4).Value & " </B>doit être envoyé au contrôle." & _
                  "<br><br>Cliquez sur ce lien pour ouvrir le fichier concerné : " & _
                  "<A HREF=""" _
                  & """>ici</A>" & "<br><br>Cordialement," & _
                  "<br><br>L'animation de prod</font>"

        With OutMail
            .To = ""
            .CC = ""
            .BCC = ""
            .Subject = "Lot à controler"
            .HTMLBody = strbody
            .Send
        End With
        On Error GoTo 0
        Set OutMail = Nothing
        Set OutApp = Nothing

Si vous pouvez m'aider s'il vous plait, Merci d'avance.