Bonjour,
Voici une proposition avec une fonction personnalisée, qui ignore la casse :
Function EXTRACT(chaine As String, Liste As Range) As String
Dim reg As Object
Dim motif$
motif = Join(Application.Transpose(Liste), "|")
Set reg = CreateObject("vbscript.regexp")
With reg
.ignorecase = True
.Pattern = motif
If .test(chaine) Then
EXTRACT = .Execute(chaine)(0).Value
End If
End With
End Function
Elle dépend de 2 paramètres, le texte sur lequel porte la recherche et la liste des valeurs de correspondance. Elle est à saisir ainsi sur feuille :
=EXTRACT(A2;$E$2:$E$4) 'où A2 est le texte et E2:E4 la liste des fournisseurs
Cdlt,