Erreur 13 de type que je ne comprends pas

Bonjour,

Je suis débutant sur VBA et je cherche à extraire une liste d'adresses e-mail stockée en colonne E vers mon presse-papier.

Mon code ci-dessous me renvoie une Erreur d’exécution 13 d’incompatibilité de type sur la ligne

txt = txt & Col.Offset(0, -1) & ";"

que je ne parviens pas à comprendre :

Sub CopyTextToClipboard()

Dim Col As Range
Dim cell As Range
Dim txt As String

Set Col = Range("E6:E400")

txt = ""

For Each cell In Col
txt = txt & Col.Offset(0, -1) & ";"
Next cell

ClipBoard_SetData txt

End Sub

Merci de votre aide !