Sub VerifDoublonsNoCheque(Banque, NumCheque)
' VerifDoublonsNoCheque(Me.ComboBanque, Me.TxtNumChèque)
Doublon = True ' True si pas de doublon, false si doublon
Nombanque = Banque
ListeCheque = Sheets(Nombanque).Cells(Rows.Count, 3).End(xlUp).Row
If ListeCheque < 2 Then Exit Sub ' Pas de chèque enregistré
For I = 2 To ListeCheque
If Sheets(Nombanque).Cells(I, 3) = Val(NumCheque) Then
Doublon = False ' False car N° de chèque trouvé
Exit Sub ' Comme doublon trouvé, on sort
End If
Next I
End Sub