XL 2013 Probleme envoie mail outlook à un groupe de personne

[MINIZ]

Bonjour, après avoir effectué de multiple recherche sur différent forum je me décide a demander de l'aide.
J'ai un bout de programme qui envoie un mail à un groupe de personne situé dans les contacts de Outlook.
Tout marche bien sauf qu'a chaque fois que je clique sur un des boutons pour envoyer le mail Outlook me rajoute le groupe à la suite du précédent dans destinataire. Du coup le groupe de personne1 reçoit le mail du groupe de personne2 par exemple si j'ai d'abord cliqué sur mail groupe1 puis mail groupe2.
Voici mon code a repeter pour groupe2 groupe3 etc

Sub MailGroupe1()

 
'Supprime les alertes
    Application.DisplayAlerts = False

  ''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''Envoie mail''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''
'Selectionne la plage de cellules à envoyer
    ActiveSheet.Range("A1:D49").Select
  
'Envoie seulement la feuille visible
   ActiveWorkbook.EnvelopeVisible = True
   With ActiveSheet.MailEnvelope
      .Introduction = ("Veuillez trouver ci dessous les heures")
      .Item.Recipients.Add ("TestMailRichard")    'groupe denvoie
      .Item.Subject = "Retourx"
      .Item.display
'     .Item.Send

   End With
End Sub

 

[MINIZ]

Petit complément d'information:
Si je ferme le classeur et le réouvre, cela supprime les anciens destinataire. Du coup pour l'instant je ferme et je rouvre apres chaque mail mais j'aimerais quand même qu'on m'aide a trouver une solution plus viable SVP