Private Sub ComboBox1_Change()
Dim i&
Dim max#
For i& = 1 To UBound(var, 1)
If ComboBox1 = CStr(var(i&, 1)) Then
If IsNumeric(var(i&, 3)) Or var(i&, 3) <> "" Then
If CDbl(var(i&, 3)) > max# Then
max# = CDbl(var(i&, 3))
TextBox2 = CDbl(var(i&, 3))
Exit Sub
Else
TextBox2 = ""
MsgBox "absence d’un MAX avec invitation pour ajout d’un index de départ"
Exit Sub
End If
End If
End If
Next i&
End Sub