Send email en fonction du contenu d'une cellule

Salut à tous,

Voilà, je gère actuellement un fichier de stock et en bref je souhaiterais que lorsque une cellule de mes colonnes F et N contiennent un chiffre qui est différend de 0, un envoi de mail automatique soit fait.

J'ai trouvé le code suivant sur le quel je me suis appuyé :

Dim xRg As Range
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Rows.Count = 0 Then Exit Sub
  Set xRg = Intersect(Range("F"), Target)
    If xRg Is Nothing Then Exit Sub
    If IsNumeric(Target.Value) And Target.Value > 0 Then
        Call Mail_small_Text_Outlook
    End If
End Sub
Sub Mail_small_Text_Outlook()
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2"
    On Error Resume Next
    With xOutMail
        .To = "xxx@xxx"
        .CC = ""
        .BCC = ""
        .Subject = "Commande à prévoir"
        .Body = "Test"
        .Display   'or use .Send
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

Mais n'étant pas expert en codage il y a des fonctions que je n'arrive pas à utiliser correctement.

Voilà, toute aide sera la bienvenue !