Récupérer valeurs uniques d'un range mail Outlook

Bonjour,

J'essaye de récupérer les adresses mails placées dans une colonne ( AC) de mon onglet excel pour envoyer des mails.

Cependant, j'ai des valeurs en doublons...

Comment est-ce possible de les supprimer ?

Voici mon code :

Sub Bouton4_Cliquer()

'Déclaration des objets

Dim MonApply As Outlook.Application

Dim MonMail As Outlook.MailItem

Dim myAttachments As Outlook.Attachments

Dim contact As String

Dim contactequipe As String

Dim emailRng As Range, cl As Range, distinctemail As Range

Dim sTo As String

Set emailRng = Worksheets("Inventory").Range("AC2:AC8000")

For Each cl In emailRng

sTo = sTo & ";" & cl.value

Next

Set myApp = CreateObject("Outlook.Application")

Set myItem = myApp.CreateItem(olMailItem)

Set myAttachments = myItem.Attachments

myItem.Subject = "Formulaire"

myItem.Body = "Bonjour, "

myItem.Attachments.Add ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

myItem.To = sTo

myItem.CC = ""

myItem.Display

End Sub

Merci par avance,