Bonjour Nizar, bonjour ThauThème,
Une autre solution en passant par des tableaux VBA pour encore plus accélérer:
Sub Id()
Dim lRow As Long
Dim tabFusion As Variant, tabSource As Variant
'initialisations
lRow = Range("A" & Rows.Count).End(xlUp).Row
tabFusion = Range(Cells(3, 32), Cells(lRow, 32))
tabSource = Range(Cells(3, 13), Cells(lRow, 14))
'parcours du tableau pour remplissage
For i = LBound(tabFusion, 1) To UBound(tabFusion, 1)
If tabFusion(i, 1) = "" Then
tabFusion(i, 1) = Range("BI2").Value & tabSource(i, 2) & "," & Range("BJ2").Value & tabSource(i, 1) & "}"
End If
Next i
'export résultat
Range(Cells(3, 32), Cells(lRow, 32)).Value = tabFusion
End Sub