erreur définie par l'application ou par l'objet

je suis entrain de programmer sur excel (vba) et je rencontre un probleme que j'ai pas pu le resoudre

erreur définie par l'application ou par l'objet

l'erreur est dans la ligne en rouge

Private Sub CheckBox1_Click()
sommeship1 = 0
sommeship2 = 0

a = CheckBox1.Value
DerniereLigne1 = Worksheets("ship1").Range("A10").CurrentRegion.End(xlDown).Row
If a = True Then
For i = 10 To DerniereLigne1
If Worksheets("ship1").Range("u" & i).Value = "Shipped" And _
Worksheets("ship1").Range("b" & i).Value = "01 January" And _
Worksheets("ship1").Range("f" & i).Value = "TN" Then
sommeship1 = sommeship1 + Worksheets("ship1").Range("t" & i).Value
End If
Next i

DerniereLigne2 = Worksheets("ship2").Range("A10").CurrentRegion.End(xlDown).Row

End If


Range("b2") = sommeship1

End Sub​