Bonjour !
Voici une p'tite démonstration pour générer la chaîne des adresses :
Sub Demo()
With Feuil1.Cells(1).CurrentRegion
S$ = Join(Application.Transpose(Application.Index(.Rows("2:" & .Rows.Count), , 3)), ";")
End With
MsgBox S
End Sub
Ensuite, si ce n'est déjà fait, activer la référence Microsoft Forms 2.0 Object Library via le menu Outils du VBE.
Reste à consulter l'aide VBA intégrée concernant DataObject et sa méthode PutInClipboard …
Valable uniquement pour le presse-papiers Office.
Sinon il y a de nombreux exemples sur le net utilisant un API Windows pour le presse-papiers …