Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Function TronquerChaine(ByVal s As String, ByVal n As Integer) As String
Dim Adr As Long
Dim Lng As Long
Adr = StrPtr(s) - 4
CopyMemory Lng, ByVal Adr, 4
Lng = Lng - n * 2
If Lng < 0 Then Lng = 0
CopyMemory ByVal Adr, Lng, 4
TronquerChaine = s
End Function