Public Function controleMontant(montantDon As Double) As Boolean
controleMontant = False
With Sheets(2)
i = .Columns(3).Find("*", , , , xlByRows, xlPrevious).Row
Set Rg = .Range(Cells(4, 3), Cells(i, 3)).Find(montantDon, LookIn:=xlValues, lookat:=xlWhole)
If Not Rg Is Nothing Then controleMontant = True
Set Rg = Nothing
End With
End Function