Sub fanfan2()
Dim TheRange As Range
Dim TheMessage As String
Dim i As Integer
Set TheRange = Range("A1") ' < variable à adapter à la cellule que tu veux traiter
If TheRange = "" Then Exit Sub ' < Sort pour éviter le plantage si la cellule st vide
TheMessage = Mid(TheRange, 1, 1) ' < Stocke le premier caractère dans la variable "themessage"
MsgBox TheMessage ' < Affiche le premier message
For i = 2 To Len(TheRange) ' < Le compteur s'adapte au nombre de caractères de la cellule ( démarre au deuxième caractère)
TheMessage = TheMessage & Mid(TheRange, i, 1) ' < Ajoute à " Themessage" le nouveau caractère trouvé
MsgBox TheMessage ' < Affiche le nouveau message
Next i
End Sub