Sub testJJ()
Dim C, i&
Columns(2).ClearContents
For i = 3 To Cells(Rows.Count, "A").End(xlUp).Row
'Recherche "TrunkPort Num" et "TrunkRes Num"
For Each C In Split(Cells(i, 1), ";")
If InStr(C, "TrunkPort Num") Then Cells(i, 2) = C
If InStr(C, "TrunkRes Num") Then Cells(i, 2) = Cells(i, 2) & C
Next
Next
End Sub