Function ChercheCode2(champ1, champ2, code, element)
ChercheCode2 = ""
For i = 1 To champ1.Count
If InStr(element, champ1(i)) > 0 Then
ChercheCode2 = code(i)
Else
If InStr(element, champ2(i)) > 0 Then
ChercheCode2 = code(i)
End If
End If
Next i
End Function