La fonction suivante si vous souhaitez supprimer les zéros non significatifs d’une cellule.

Fonction EliminerZeros (macellule)
Dim i As Long
i = macellule
While i - Int(i) > 0
i = i * 10
Wend
EliminerZeros = i
End Function

Commentaires:
■ Vous pouvez utiliser la fonction Int pour renvoyer la valeur entière d’un nombre. Dans le cas de zéro, c’est bien sûr également zéro.

■Dans la boucle, multipliez la variable i par la valeur 10 pour passer au caractère suivant.