bonjour André et Robert René
j'espere que la macro ci joint pourra t'aider
Sub ExtraireAlphaNumerique()
Dim i As Byte, j As Byte, NumColonne As Byte
Dim Cible As Range
Dim Mot As String
Dim Nombre As Integer
For Each Cible In Range("A2:A" & Range("A65536").End(xlUp).Row)
j = 1
For i = 1 To Len(Cible)
If Not IsNumeric(Mid(Cible, i, 1)) Then
Mot = Mid(Cible, i, 1)
Nombre = Mid(Cible, j, i - j)
NumColonne = Application.WorksheetFunction.Match(Mot, Worksheets(1).Range("C1:AB1"), 0) + 2
Cells(Cible.Row, NumColonne) = Nombre
j = i + 1
End If
Next i
Next Cible
End Sub
bon dimanche
MichelXld