Concaténation en ligne pour E-Mails VBA

Bonjour, alors voilà je vous expose mon problème je voudrais concaténer des E-Mails qui sont alignés les uns à la suite des autres.

Le but est de pouvoir envoyer un mail groupé a tout le monde une fois que c'est fait. Pour ma boite E-mail il faut donc : adresse1@truc.com;adresse2@truc.com;etc

Bref en gros il faut des ";" entre chaque adresse e-mail. Je connais pas trop VBA mais je sais programmer et du coup j'ai fait cette fonction pour l'instant :

Sub Concaténation()
   ActiveSheet.Range("C5").Select (je me positionne en C5, la où commencent mes adresses mails)
      While ActiveCell <> "" (tant que la cellule n'est pas vide je continue)
         [G5] = [G5] & ";" & ActiveCell.Value (je rejoute à G5, la cellule où je veux ma concaténation, la valeur de la cellule actuelle)
         ActiveCell = ActiveCell.Offset(0, 1) (je me déplace d'une cellule vers la droite)
      Wend
End Sub

Je pense que j'utilise mal les activeCell etc mais je comprend pas trop comment ça marche à vrai dire

Merci !