Fonction qui insère des points séparateurs de milliers dans une chaîne de caractères

Function Sep_Mil(target As String) As String
Sep_Mil = Replace(Format(CDbl(target), "#,###"), Chr(160), ".")
End Function

Function Sep_Bis(target As String) As String
Dim x As Integer, tmp As String
tmp = Right(String(20, "   ") & target, 60)
x = 3
Sep_Bis = Right(tmp, x)
While Left(Right(tmp, x + 3), 3) <> "   "
Sep_Bis = Left(Right(tmp, x + 3), 3) & "." & Sep_Bis
x = x + 3
Wend
End Function

Function Millier$(x)
Dim T, s$, i&, k&
  Millier = Trim(x)
  If Len(Millier) > 3 Then
    s = StrReverse(Millier)
    k = Int(Len(s) / 3) - (Len(s) \ 3 <> 0): ReDim T(1 To k)
    For i = 1 To k: T(k + 1 - i) = StrReverse(Mid(s, 1 + 3 * (i - 1), 3)): Next i
    Millier = Join(T, ".")
    Millier = IIf(Left(Millier, 1) = ".", Mid(Millier, 2), Millier)
  End If
End Function

Function SepareMilliers$(t$, sep$)
Dim i%
For i = Len(t) - 3 To 1 Step -3
  t = Left(t, i) & sep & Mid(t, i + 1)
Next
SepareMilliers = t
End Function

=SepareMilliers(A1;".")

Function SepareMilliers$(t$, sep$)
Dim i&
i = (Len(t) - 1) Mod 3 + 1
While i < Len(t)
  t = Left(t, i) & sep & Mid(t, i + 1)
  i = i + 4
Wend
SepareMilliers = t
End Function

Function SepareMilliers$(t$, sep$)
Dim sepdec$, i%
sepdec = Mid(1 / 10, 2, 1) 'séparateur décimal de l'ordi
t = t & sepdec
For i = InStr(t, sepdec) - 4 To 1 Step -3
  t = Left(t, i) & sep & Mid(t, i + 1)
Next
SepareMilliers = Left(t, Len(t) - 1)
End Function