Public Function Cherche_Chiffre(Ladate As String) As Long
Dim Lig As Long
Dim Der As Long
Dim Plage As Range
Dim Tmp As String
Dim Max As Long
Der = Sheets("BD").Range("A1", Range("A65535").End(xlUp)).Rows.Count
With Sheets("BD").Range("A1:A" & Der)
Set Plage = .Find(Ladate, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)
If Plage Is Nothing Then Exit Function
Lig = Plage.Row
End With
Tmp = Range("A" & Lig)
While Tmp = CStr(Range("A" & Lig)) And CStr(Range("A" & Lig)) = CStr(Range("A" & Lig + 1))
If CLng(Range("D" & Lig)) > CLng(Range("D" & Lig).Offset(1, 0)) Then
Max = CLng(Range("D" & Lig))
Else
Max = CLng(Range("D" & Lig).Offset(1, 0))
End If
Lig = Lig + 1
Wend
Cherche_Chiffre = Max
End Function