BONJOUR...
tu trouveras un début de réponse ici :
Lien supprimé
bonne journée
@+
Function Test(CbBox1Val As String, ContenuTesté As String) As Boolean
On Error Resume Next
WorksheetFunction.Match CbBox1Val, Split(ContenuTesté, vbLf), 0
Test = Err = 0
On Error GoTo 0
End Function