bonjour
si tes données sont toujours au meme format , tu peux tester
Sub extraireDonnees()
Dim Cell As Range
Dim Cible As String
Dim Tableau() As String
Dim i As Integer
'boucle sur les données de la colonne A
For Each Cell In Range('A1:A' & Range('A65536').End(xlUp).Row)
Cible = Mid(Cell, 13, 5) 'extraire xx-yy du format 2510136-01-(xx-yy)
Tableau = Split(Cible, '-') 'recuperer xx et yy dans un tableau
i = i + 1
Cells(i, 2) = Left(Cell, 11) & Tableau(0) 'transfert des données dans la colonne B
i = i + 1
Cells(i, 2) = Left(Cell, 11) & Tableau(1) 'transfert des données dans la colonne B
Next
End Sub
bonne soiree
MichelXld