Bonjour,
une solution via une macro,... si j'ai bien compris. j'ai un doute pour les données à afficher.
Sub test()
Set ws1 = Sheet1
Set ws2 = Sheet2
dl = ws1.Range("a" & Rows.Count).Row
k = k0
For i = 1 To dl
r = ws1.Cells(i, 1)
s = InStr(r, "JIC :")
If s <> 0 Then
k = k + 1
ws2.Cells(k, 2) = Mid(r, s)
'ws2.Cells(k, 1) = Left(r, s - 1)
'ws2.Cells(k, 3) = ws1.Cells(i, 2)
End If
Next i
Set ws1 = Nothing