Function Catégorie(Chaine)
Catégorie = "Non référencé"
DerLig = Sheets("Correspondance").Range("A65500").End(xlUp).Row
Chaine = LCase(Chaine)
For L = 2 To DerLig
If InStr(Chaine, LCase(Sheets("Correspondance").Cells(L, 1))) > 0 Then
Catégorie = Sheets("Correspondance").Cells(L, 2)
End If
Next L
End Function