Boucle pour copier coller

Bonjour à tous,

Comment récupérer les données (adresses mail) d'une colonne (de A1 à A1000) puis les copier/coller dans une autre cellule (B1) séparées par des " ; " afin de les renseigner directement pour l'envoi d'un mail ?

Le tout via une boucle car la je saisi directement en B1 : =A1 & " ; " & A2 & " ; " & A3 etc...

D'avance merci.

Bonjour,

comme ca

Sub Macro1()

For i = 1 To Range("A" & Rows.Count).End(xlUp).Row

Range("B1").Value = Range("B1").Value & ";" & Range("A" & i).Value

Next

Range("B1").Value = Right(Range("B1").Value, Len(Range("B1").Value) - 1) & ";"

End Sub

Bonjour fg2b,

Super merci, c'est exactement ce qu'il me fallait.

Je te remercie.

Bonne journée & bon week end