Function note_bon(cellule)
tablo = Sheets("liste").Range("M4:M" & Sheets("liste").Range("M" & Rows.Count).End(xlUp).Row)
For m = LBound(tablo) To UBound(tablo)
If InStr(cellule, tablo(m, 1)) <> 0 Then
note = note + 1
End If
Next
note_bon = note
End Function
Function note_mal(cellule)
tablo = Sheets("liste").Range("N4:N" & Sheets("liste").Range("N" & Rows.Count).End(xlUp).Row)
For m = LBound(tablo) To UBound(tablo)
If InStr(cellule, tablo(m, 1)) <> 0 Then
note = note + 1
End If
Next
note_mal = note
End Function