Private Sub CommandButton1_Click()
Dim xcell As Range, Mots, i As Long, j As Long, aTrouver As String
aTrouver = LCase(Trim(Cells(1, "r")))
For Each xcell In Range("K2", Cells(Rows.Count, 11).End(xlUp))
Mots = Split(LCase(Trim(xcell)), "$")
For i = 0 To UBound(Mots)
Range(Cells(xcell.Row, "l"), Cells(xcell.Row, "o")) = Array("", "", "", "")
If Mots(i) = aTrouver Or Mots(i) Like aTrouver & " *" _
Or Mots(i) Like "* " & aTrouver & " *" Or Mots(i) Like "* " & aTrouver _
Or Mots(i) Like "*'" & aTrouver & " *" Or Mots(i) Like "*'" & aTrouver Then
Cells(xcell.Row, "l") = Cells(xcell.Row, "a")
Cells(xcell.Row, "m") = Mots(i)
j = i + 1
If j <= UBound(Mots) Then
If IsNumeric(Trim(Mots(j))) Then Cells(xcell.Row, "n") = CLng(Mots(j))
End If
j = i + 2
If j <= UBound(Mots) Then
If IsNumeric(Trim(Mots(j))) And (Trim(Mots(j - 1)) = "" Or IsNumeric(Trim(Mots(j - 1)))) Then Cells(xcell.Row, "o") = CLng(Mots(j))
End If
Exit For
End If
Next i
Next xcell
End Sub