Sub Bouton1_QuandClic()
Dim prenom As String
Dim nom As String
Dim texte As String
Dim i As Byte, j As Byte, l As Byte
prenom = Range('K1')
nom = Range('L1')
If Len(prenom) + Len(nom) < 20 Then
texte = prenom & ' ' & nom
Else
texte = Left(prenom, 1) & ' ' & nom
End If
j = 1
Do While j < 3
i = i + 1
l = l + 1
Cells(j, i) = UCase(Mid(texte, l, 1))
If i = 10 Then j = j + 1: i = 0
Loop
End Sub