Sub spreadtest_2()
Dim T As Variant, Treport As Variant
Dim Deb&, Fin&, I&, J&, K&, L&
Deb = 1: Fin = 19
ReDim Treport(1 To ((Fin - Deb) + 1) * 3, 1 To 2)
With Sheets("Feuil1")
For J = Deb To Fin
T = Split(.Range("D" & J).Value, " vs ")
L = L + 1
For I = LBound(T) To UBound(T)
If Len(Trim(T(I))) > 4 Then
K = K + 1
Treport(K, 1) = Trim(T(I))
Treport(K, 2) = L
End If
Next I
Next J
Cells(Deb, 4).Resize(K, 2) = Treport
End With
End Sub