Deplacer le premier mot

Bonjour

je continue a affiner mon script,

• j ai besoin maintenant de déplacer le premier mot présent dans chaque cellule de la colonne I2:I200 vers la colonne H2:H200
• j ai besoin de supprimer tous les mots après le premier dans la colonne F2:F200

ceci en vba

merci pour votre aide

Bonjour et bonne chance pour la suite, on est de tout coeur avec toi

P.

bonjour,

une proposition

Sub aargh()
    Dim r
    For i = 2 To 200
        Set st = Cells(i, "I")
        If st <> "" Then
            r = Split(st, " ")
            s = LBound(r)
            Cells(i, "H") = r(s)
            st.Value = Trim(Replace(st, r(s), ""))
        End If
        Set st = Cells(i, "F")
        If st <> "" Then
            r = Split(st, " ")
            st.Value = r(s)
        End If
    Next i
End Sub