Envoi de mail automatique défaillant

Bonjour,

J'ai un soucis sur ce fichier exemple où l'envoi de mail automatique déraille complètement. Non seulement il ne va pas me chercher toutes les lignes demandées pour remplir le mail, mais en plus il me fait une boucle de plusieurs mails qui se complètent au fur et à mesure.

Je pense que c'est assez simple pour des personnes plus douées que moi, mais pour le coup, j'avoue que je sèche un peu ...

Je vous remercie d'avance.

J'ai résolu le problème de la boucle mais pas celui des lignes qui ne sont pas prises en compte.
Pour ceux qui se posaient la question et si ça peut servir à d'autres, j'ai modifié la 3ème ligne de code dans ma première feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
   LigneInfos = Target.Row
   If Cells(Target.Column, 3) = "" Then Call mail_outlook_avancé
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
   LigneInfos = Target.Row
      If Target.Column = 3 Then Call mail_outlook_avancé
End Sub

Deuxième problème résolu, je n'appelais pas nom d'objet. Désolé.
Merci quand même !