Excel incrémenter valeur cellule avec bouton

Bonjour,

J'ai un fichier excel à envoyer régulièrement par mail. J'ai inclus dans ce fichier une cellule indiquant une référence (Pour simplifier, la référence est simplement un nombre).

J'ai déjà créé une macro permettant d'envoyer ce fichier par mail en cliquant sur un bouton(destinataire à saisir dans le fichier excel et non dans la macro)

Ce que je souhaite, c'est qu'à chaque fois que je clique sur le bouton pour envoyer le fichier, la cellule de référence augmente de 1. Mais le problème, c'est que lorsque le destinataire va me renvoyer le fichier, il va faire de même et ainsi incrémenter lui aussi la référence.

Y-a-t-il une solution pour faire que la valeur de la référence soit incrémentée uniquement quand moi-même envoie le fichier par mail. (Genre indiquer comme condition mon adresse expéditeur) ?

Est-ce que ce marcherait : (référence en F5, destinataire du fichier en E6)

Sub envoi_mail_et_réf()
'Envoi le fichier par mail
Workbooks("questionnaire respect délais.xls").SendMail Recipients:=Range("Questionnaire!E6").Value, _
Subject:="Questionnaire de satisfaction", _
ReturnReceipt:=True
'Incrémente la référence de 1
ActiveSheet.Range("F5").Value = ActiveSheet.Range("F5").Value + 1
'Si je suis le destinataire
If ActiveSheet.Range("E6").Value = "mon.adresse@mail.fr" Then
ActiveSheet.Range("F5").Value = ActiveSheet.Range("F5").Value - 1
End If
End Sub

Merci d'avance

Mic39