Recupérer la chaine de caractère d'un mot rechercher

Bonjour à tous,

Je souhaite rechercher un ensemble de caractère dans une cellule et copier l'intégralité du mot dans une autre colonne.

J'ai adapté le code de m3ellem1 mais ma recherche se limite aux 3 caractères recherchés or je veux tous ceux qui viennent après.

Voici le code et le fichier exemple.

Merci d'avance.

Sub Mots()

Dim marecherche As Variant, k As Variant
Dim DernRow, i As Long

marecherche = Array("LI0", "MDI", "SDI")

DernRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
For i = 5 To DernRow
For Each k In marecherche
If InStr(1, UCase(Cells(i, 1).Value), k) <> 0 Then
Cells(i, 3).Value = k
End If
Next k
Next i

End Sub

bonjour, comme ça ?

Sub Mots()

     Dim marecherche As Variant, k As Variant
     Dim DernRow, i As Long

     marecherche = Array("LI0", "MDI", "SDI")

     DernRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
     Range("C5").Resize(DernRow - 4).ClearContents     'effacer la colonne C

     For i = 5 To DernRow
          For Each k In marecherche
               j = InStr(1, UCase(Cells(i, 1).Value), k)
               If j <> 0 Then
                    Cells(i, 3).Value = Mid(Cells(i, 1), j): Exit For     'il ne faut plus chercher
               End If
          Next k
     Next i

End Sub

Bonjour

Bonjour à tous

Une variante

Bye !

Bonjour BsAlv,

C'est excatement ce que je voulais. Merci beaucoup.

Je remercie également gmb pour son aide.