SPLIT de cellules en 2 cellules

Bonjour et bonne journée à tous, je suis désolé de vous embeter. Je viens d'apprendre le vba et je rencontre qqes problemes malgré le fait que plusieurs posts concernant le split sont déja présents dans le forum.

Objectif du code: je possede une colonne contenant des string.Je souhaite réaliser un programme qui parcourt cellule par cellule et divise la cellule contenant "vs" à condition que la chaine de caracteres à droite de "vs soit de longueur superieure à 4

ex: la cellule en A1 5y5y @674 vs 5y10y @1259 sera divisée en 5y5y @674 (qui sera alors en A1) et 5y10y @1259 (qui sera en A2 sans pour autant écraser les données en A2)

la cellule en A10 4y10y P+100 /292 vs 115 ne sera pas divisée car à droite du vs il y a seulement 4 caracteres.

Voici mon code

Sub test()

Dim spl() As String

Dim pos As Long

Dim i As Long

With Sheets("Feuil1")

For i = 1 To 500

If Cells(i, 1).Value Like ("vs") Then

spl = Split(Cells(i, 1).Value, " vs ")

If Len(spl(1)) > 4 Then

Cells(i, 1).Value = spl(0)

i = i + 1

Rows(i).Insert

Cells(i, 1).Value = spl(1)

End If

End If

Next i

End With

End Sub

Il y a pas mal d'erreurs à priori. pourtant j'ai utilisé uniquement des fonctions que j'ai trouvé sur le net et j'ai du mal à déboger.

Ce serait super sympa si vous pourriez m'aider.

Merci infiniment (meme si vous trouvez uniquement une ou deux sources d'erreur)

Bonjour

A vérifier

Sub test()
Dim spl
Dim pos As Long
Dim i As Long

  With Sheets("Feuil1")
    ' Il vaut mieux commencer à la fin
    ' Car le nombre de ligne varie avec l'insertion de ligne
    For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
      If Cells(i, 1).Value Like "* vs *" Then
        spl = Split(Cells(i, 1), " vs ")
        If Len(spl(1)) > 4 Then
          Cells(i, 1).Value = spl(0)
          Rows(i + 1).Insert
          Cells(i + 1, 1).Value = spl(1)
        End If
      End If
    Next i
  End With
End Sub

Probleme resole

merci infiniment!!!!!!!!!!!!!!!!!!!!!!!!!