bonjour,
edit bonjour Yvouille, i20100
une solution avec une fonction personnalisée.
Function recherchevpartiel(valeur, plage As Range, colonne)
Dim cva$, clé$, cell
For Each cell In plage.Columns(1).Rows
cva = cell.Value
clé = Left(cva, InStr(cva, "*") - 1)
If Left(valeur, Len(clé)) = clé Then
recherchevpartiel = cell.Offset(, colonne - 1)
Exit Function
End If
Next
recherchevpartiel = CVErr(xlErrValue)
End Function