Option Explicit
Sub EssaiCarriere()
Dim f1 As Worksheet, f2 As Worksheet, c As Range
Dim t As Variant, i%, lig As Variant
Set f1 = Sheets("Feuil1") 'Workbooks("BDD_carrière.xls").
Set f2 = Sheets("Feuil2") 'Workbooks("Resultat.xls").
For Each c In f1.Range("A2", f1.[A65536].End(xlUp))
t = ""
For i = 13 To c(1, 256).End(xlToLeft).Column Step 4
t = Array(t, c(1, i), Right(c(1, i + 1).Text, 4), Right(c(1, i + 2).Text, 4))
t = Trim(Join(t))
Next
lig = Application.Match(c, f2.[B:B], 0)
If IsError(lig) Then lig = f2.[B65536].End(xlUp).Row + 1
f2.Cells(lig, 2) = c
f2.Cells(lig, 9) = t
Next
'f2.[A:I].Sort f2.[B1], Header:=xlYes 'tri
f2.[I:I].WrapText = True 'renvoi à la ligne
f2.Rows("2:65536").AutoFit 'ajustement automatique
f2.Activate
End Sub