Bonjour,
J'essaie de comprendre pourquoi ça marche pas, j'ai mis des commentaires de ce que j'aimerais bien que ça fasse
'Si qqchose bouge en colonne 3
If Target.Column = 3 Then
'Je localise la ligne
DerPrepa = Cells(250, 3).End(xlUp).Row
'Si la case colonne 3 n'est pas vide, prendre l'adresse en colonne 4 et envoyer le mail
If Cells(DerPrepa, 3) <> "" Then DestinataireMail = Range(Cells(Target.Row, 1), Cells(Target.Row, 18)).Value
EnvoyerMail DestinataireMail
'si possible rajouter un sinon ou else if "vide" ne rien faire car c'est pas encore attribué
End If
Y'a forcement des erreurs qui vont vous piquer les yeux :D