XL 2010 calcul MAX if en vba

Private Sub ComboBox1_Change()
Calcul
End Sub

Private Sub ComboBox2_Change()
Calcul
End Sub

Private Sub ComboBox3_Change()
Calcul
End Sub

Private Sub UserForm_Initialize()
On Error Resume Next 'si le tableau est vide
ComboBox1.List = [A2].Resize(Application.CountA([A:A]), 2).Value
With [B1].Resize(2, Application.Count([1:1]))
    ComboBox2.List = Application.Transpose(.Value)
    ComboBox3.List = Application.Transpose(.Value)
End With
End Sub

Sub Calcul()
Dim lig&, col1%, col2%
TextBox1 = ""
On Error Resume Next
lig = Application.Match(ComboBox1, [A:A], 0)
col1 = Application.Match(CDbl(CDate(ComboBox2)), [1:1], 0)
col2 = Application.Match(CDbl(CDate(ComboBox3)), [1:1], 0)
TextBox1 = Application.Max(Range(Cells(lig, col1), Cells(lig, col2)))
End Sub