TOTO = Range("A1").Value
ch = String(19, " ")
LSet ch = "banane"
Range("A1").Value = ch & "1"
Sub Test()
Chaine = ActiveCell.Value
Taille = Len(Chaine)
If Taille < 20 Then
ActiveCell.Value = Mid(Chaine, 1, 20) & String(20 - Taille, " ") & "1"
Else
ActiveCell.Value = Mid(Chaine, 1, 20) & "1"
End If
End Sub
=STXT(A1;1;20)&REPT(" ";20-NBCAR(A1))&"1"
=$A1&REPT(" ";19-NBCAR($A1))&1
=$A1&REPT(" ";MAX(0;19-NBCAR($A1)))&1