Salut Tommyna, H2SO4,Tulipe,
En VBA par tableau : premier jet...
Si je lis bien ton UNIQUE donnée, chaque groupe de chiffres est précédé d'une espace ? Systématique ?
Un double-clic démarre la macro.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim tData
'
Cancel = True
tData = Range("A1:B" & Range("A" & Rows.Count).End(xlUp).Row).Value
For x = 1 To UBound(tData, 1)
tData(x, 2) = Mid(tData(x, 1), InStrRev(tData(x, 1), " ") + 1, 3)
Next
Range("A1").Resize(UBound(tData, 1), 2) = tData
'
End Sub
A+