Suppression espace surnuméraires

ActiveCell = a & " " & b & " " & c & " " & d & " " & e & " : Réceptions des échantillons"
truc = ActiveCell
ActiveCell = Replace(ActiveCell, " ", "") '(c'est ici que je coince, mon exemple ne fonctionnant pas)

ActiveCell = WorksheetFunction.Trim(truc)

Sub aa()
Dim truc$, a$, b$
a = "a" [COLOR=Green]'valeur de test[/COLOR]
b = "b" [COLOR=Green]'valeur de test[/COLOR]
truc = Chr(34) & a & "   " & b & "   " & " : Réceptions des échantillons" & Chr(34)
ActiveCell.Offset(-1, 0) = truc[COLOR=Green] 'pour le test[/COLOR]
ActiveCell.FormulaR1C1 = "=TRIM(" & truc & ")"
End Sub