Salut le forum
Bienvenue parmi nous Serge
Une petite macro sur le code de la feuille
Private Sub Worksheet_Change(ByVal Target As Range)
Dim I As Byte
Dim Texte As String
'Cellule A1:A10 au format texte
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
If Len(Target) <> 16 Then Exit Sub
For I = 1 To 16 Step 4
Texte = Texte & " " & Mid(Target, I, 4)
Next I
Target = Texte
End If
End Sub
Mytå