Bonjour,
Je ne suis pas sûr d'avoir compris ce que tu cherches à faire ... mais tu peux toujours essayer cela
Private Sub CommandButton3_Click()
Dim N_ent As Long
N_ent = 100101
For i = 1 To Len(CStr(N_ent))
Cells(i, 1) = Mid(N_ent, i, 1)
Next i
End Sub
A+