Dim i As Byte, flag As Boolean, ligne As Long
With Sheets("saisie")
For i = 1 To 10
If .Cells(i + 3, "L") > Sheets("base de données").Cells(19, i + 12) _
Then flag = True: Exit For
Next
If .[D20] <> .[M16] Or flag _
Then MsgBox "Billetage insuffisant !", 48: Exit Sub
End With