Salut duee,
premier jet, vite fait... Je peaufine dans la soirée.
Un double-clic en 'Extract' démarre la macro. Résultat en 'BDD'.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim tData, tExtract(), tSplit1, tSplit2
'
tData = Range("A1").Resize(UsedRange.Rows.Count, 1).Value
With Worksheets("BDD")
For x = 1 To UBound(tData, 1)
If tData(x, 1) <> "" Then
iRow = IIf(.Cells(1, 1) = "", 1, .Range("A" & Rows.Count).End(xlUp).Row + 1)
.Cells(iRow, 1) = Split(Split(tData(x, 1), " =")(0), " ")(1)
tSplit1 = Split(Split(tData(x, 1), "= (")(1), ")")(0)
tSplit2 = Split(tSplit1, ",")
.Range("B" & iRow).Resize(1, UBound(tSplit2, 1)).Value = WorksheetFunction.Transpose(WorksheetFunction.Transpose(tSplit2))
End If
Next
End With
'
End Sub
A+