Essaye:
A=range.Cell(1,1).value & " " & range.Cells(1,2).value
si les valeurs contenues sont du texte si non utilise:
A=str(range.Cell(1,1).value) & " " & str(range.Cells(1,2).value)
le code présenté est bon mais il faut faire attention au guillemet
en effet si tu ne crées pas l'espace entrte tu auras beau utiliser cette solution ton problème sera tjs identique
donc il faut faire " " (la j'exagere pour que cela soit visible)
stephane