Concaténation de chaines

Bonjour,

Je ne sais pas du tout utiliser VBA mais je m'y mets tout seul.

Il me faudrait une macro simple pour concaténer dans une seule cellule le contenu de plusieurs cellules , toutes situées sur la même ligne(par exemple de A1 à E1) et qui ne contiennent qu'une seule lettre chacune

Exemple : A E I G H

doit me donner en A3 : AEIGH

Je sais que a priori ce ne doit pas être compliqué mais pour moi , ça l'est , en ce moment

Merci d'avance de votre réponse .

Bonsoir

avec une fonction personnalmisée (Code Module)

Function concat(champ)
   temp = ""
   For Each d In champ
     If Len(d.Value) > 0 Then temp = temp & d.Value & ""
   Next d
   concat = temp
End Function

Cordialement

Merci à Amadeus pour m'avoir aidé si rapidement . ça marche très bien

J'essaie de bien comprendre pas à pas ; c'est plusfacile grâce à vous !