Inserer un espace tous les x caracteres

Public Function insespace(s As String, n As Long) As String
If n = 0 Or s = "" Then insespace = "erreur": Exit Function
If Len(s) <= n Then
  insespace = s
Else
  insespace = Left(s, n) & " " & insespace(Right(s, Len(s) - n), n)
End If
End Function

Discussions similaires