Comment supprimer les espaces doubles ou triples à l'intérieur d'un texte ?

[A1] = [trim(A1)]
il est à noter que les fonctions TRIM ont des résultats differents selon VBA ou EXCEL la fonction de feuille de calcul
=SUPPRESPACE (=TRIM en langage US)
se comporte differement de la fonction VBA TRIM, seule la fonction de feuille de calcul supprime les espaces intérieurs ce qu'a parfaitement résumé AV par la formule ci dessus pour s'en convaincre :

sub Supprimer_les_espaces_en_trop()
 texteorigine = "Voici  un texte avec des  tas d'espaces en trop  "
 [A1] = texteorigine
   [B1].FormulaLocal = "=NBCAR(A1)"
 [A2].Formula = "=TRIM(A1)" ' --------fonction feuille de calcul
   [B2].FormulaLocal = "=NBCAR(A2)"
 [A3] = Trim(texteorigine) ' ---------fonction VBA
   [B3].FormulaLocal = "=NBCAR(A3)"
 [A4]= [TRIM(A1)] ' ------réponse de AV
 
 Range("A1:A4").Font.Name = "Courier new"
 end sub