'# Pas optimisé...
Function TypeEcriture(sLibellé_Banque As String) As String
Application.Volatile
Dim i As Integer
Dim tbl As ListObject
Set tbl = Worksheets("PARAM").ListObjects("tblValeursCherchées")
For i = 1 To tbl.Range.Rows.Count
If sLibellé_Banque Like "*" & tbl.DataBodyRange(i) & "*" Then TypeEcriture = tbl.DataBodyRange(i): Exit For
TypeEcriture = "Rien trouvé..."
Next
End Function