Envoi mail en fonction de la valeur d'un autre feuille

Bonjour,

Je souhaite envoyer automatiquement un mail en fonction de la valeur d'une cellule.

Les adresses mails étant stockés sur une autre feuille du classeur, je ne sais pas trop comment modifier mon code. Les valeurs figurant sur le second onglet sont celles nommées Range("M" & Ligne) et Range("O" & Ligne) dans le code.

Actuellement, j'utilise ce code :

Sub Mail()

Dim LeMail As Variant
Dim Ligne As Integer

Set LeMail = CreateObject("outlook.application") 'création d'un objet outlook

For Ligne = 18 To 20

If Range("M" & Ligne) = Range("H15") Or Range("M" & Ligne) = Range("H21") Then
With LeMail.CreateItem(olMailItem)
.Subject = "Nouveau formulaire créé" 'Sujet du mail
.To = Range("O" & Ligne) 'Destinataire
.Body = "Bonjour," & vbCr & vbLf & "Un nouveau formulaire a été créé. " 'Corps du mail
.Display 'permet d'afficher le mail avant d'envoyer le mail
' .Send 'envoi du mail
End With

End If

Next Ligne

End Sub

Edit modo : merci de mettre le code entre balises avec le bouton </>

Bonjour,

Il y a plusieurs façons de gérer cela > une façon simple est de mettre le nom de la feuille devant le range ...

WorkSheets("MaFeuille").Range("M" & Ligne)

ric

Merci Ric pour ton aide, cela fonctionne parfaitement.