Envoi de publipostage mail via Excel

Bonjour à tous,

Je travaille actuellement sur un projet de publipostage via Excel.
En étudiant différents codes VBA j'ai écrit le suivant, lorsque je l'exécute il me met erreur d'exécution 13, Incompatibilité de type

Sub sendMail()

    Dim iMsg As Object, iConf As Object, Flds As Object
    Dim destinataire As String
    Dim y As Integer
    Dim x As Integer
    Dim liste_client As String
    

    Set iMsg = CreateObject("cdo.message")
    Set iConf = CreateObject("cdo.configuration")
    
    Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "serveur"
        .Update
    End With
    
    x = 2
    y = 2
    destinataire = Cells(1, y)
    
    
    While (Not (IsEmpty(Cells(1, y))))
        liste_client = ""
        x = 2
        
        While (Not (IsEmpty(Cells(x, y))))
            liste_client = liste_client + " " + Cells(x, y)
            x = x + 1
        Wend
        
        If (Not (IsEmpty(liste_client))) Then
            With iMsg
            Set .Configuration = iConf
            .To = "Mon adresse"
            .From = destinataire
            .Subject = "Données manquantes"
            .HTMLBody = "Bonjour, voici les clients : " + liste_client
            .Send
            End With
        End If
        
        y = y + 1
        destinataire = Cells(1, y)
        
    Wend
 
End Sub

Le but est d'envoyer un mail à Yann, avec les numéros sous le texte, puis un second mail à Julien avec ses numéros et ainsi de suite...

J'espère être suffisament clair. :/

Mon classeur Excel ressemble à celui ci.

Personne..adresse mail...........1...............2................3............4
Yann............mail1................25052.....41142274...72274......7274742
Julien...........mail2...............769879....978894
Laura..........mail3...............2365205

D'avance merci,

Cordialement,

Kersou