Je me permet de revenir sur le sujet.
Il me manque un petit détail sur la formule.
Est-il possible de venir chercher le terme exacte ?
Le problème : Je souhaites extraire "Women's" et "Men's", hors dans les cellules "Women's", ce dernier vers m'extraire la fin du mot donc "Men's".
En vous remerciant par avance,
Très bonne journée à vous,
Pierre
Pour rappel, le travail était le suivant :
Option Explicit
Public Sub Recherche()
Dim iDerLig As Integer
Dim iLig As Integer
Dim colTermes As Collection
Dim vTerme As Variant
Set colTermes = New Collection
'liste des termes
iDerLig = Range("P" & Rows.Count).End(xlUp).Row
For iLig = 2 To iDerLig
colTermes.Add Range("P" & iLig).Value
Next iLig
iDerLig = Range("C" & Rows.Count).End(xlUp).Row
'efface le résultat
Range("D1:D" & iDerLig).ClearContents
'parcours
For iLig = 2 To iDerLig
For Each vTerme In colTermes
If InStr(1, UCase(Range("C" & iLig).Value), UCase(vTerme)) > 0 Then
Range("D" & iLig).Value = vTerme
End If
Next vTerme
Next iLig
Set colTermes = Nothing
End Sub