<HTML>Bonsoir,
L'opérateur qui permet de concaténer des valeurs est le et commercial : &
exemple :
si les cellules à concaténer se trouvent de B1 à H1 et que l'on veut insérer le résultat dans A1, le code suivant doit fonctionner :
MaVariable=""
For Each cettecellule in Range("A1:H1").Cells
If cettecellule<>"" then
MaVariable=MaVariable & cettecellule.value
End If
Next
Range("A1")=MaVariable
Voilà
David</HTML>