Function recupValeur(cellule As Range, val As String) As Variant
tab1Str = Split(UCase(Trim(cellule.Text)), "-")
For i = LBound(tab1Str) To UBound(tab1Str)
If tab1Str(i) Like "*" & UCase(val) & "*" Then
tab2Str = Split(tab1Str(i), ":")
recupValeur = tab2Str(UBound(tab2Str))
Exit Function
End If
Next i
End Function