Récupérer adresses email sur toute une colonne

Bonsoir,

voilà j'ai un tableau avec dans la colonne D (par exemple) des adresses e mail (environ sur 250 lignes)

Comment faire pour les récupérer automatiquement et faire en sorte qu'elles soient séparées par un ; afin que je puisse envoyer un message directement à tout le monde ?

Merci beaucoup par avance

Bonne soirée

Bonjour,

Une solution :

Sub mail()
    For i = 1 To Range("D1").End(xlDown).Row
        liste = liste & separateur & Cells(i, 4)
        separateur = "; "
    Next
    Range("A1") = liste
End Sub

Le fichier :

Cordialement,

Bonsoir,

Une autre

Sub Concat()
Dim i%
    Application.ScreenUpdating = False
        For i = 2 To Range("d65536").End(xlUp).Row
            Cells(2, "e") = Cells(2, "e") & ";" & Cells(i, "d")
        Next i
    '-- supprime le 1er ";" --
    Cells(2, "e") = Mid(Cells(2, "e"), 2, Len(Cells(2, "e")))
End Sub

Salut Sébastien

Amicalement

Claude

Merci beaucoup pour votre aide et pour la rapidité !

Bonne journée