Sub coupe()
Dim T As Variant, Treport As Variant
Dim Fin&, I&, J&, K&, L&
Deb = 1 ' Première ligne A adapter
Fin = 10 'Pour les lignes jusqu'a 10 A adapter
ReDim Treport(1 To ((Fin - Deb) + 1) * 3, 1 To 2)
With Sheets("Feuil1") ' Nom de feuille a adapter
For J = Deb To Fin
T = Split(.Range("A" & J).Value, " vs ")
L = L + 1
For I = LBound(T) To UBound(T)
K = K + 1
Treport(K, 1) = Trim(T(I))
Treport(K, 2) = L
Next I
Next J
Cells(Deb, 1).Resize(K, 2) = Treport
End With
End Sub