Bonjour le forum
Christian si tu veux vraiment une macro en voici une
Option Explicit
Sub extraire_caracteres()
Dim i As Double, j As Double
Dim valeur As String
For i = 1 To Range("a65535").End(xlUp).Row
valeur = Cells(i, 1)
For j = 1 To 6
Cells(i, j + 1).NumberFormat = "@"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Cells(i, j + 1) = Mid(valeur, j, 1)
Next j
Next i
End Sub
Copie 6 premieres lettres des colonnes "A" dans les colonnes "B;C;D;E;F;G"
Mytå