Erreur d'éxcution "13" incompatibilité de type

Bonjour,

je suis un peu debutant en vba excel ,je sais pas quand j'éxcute ce code ci dessous , je recois Erreur d'éxcution "13" incompatibilité de type , Svp est ce quelqu'un peut me dire ou est le probleme ? et Merci d'avance

Sub location()

Dim Nbrcr As Integer

Nbrcr = Range("E4").Value
For i = 10 To Nbrcr + 9

Range("D" & i).Value = "trajet" & i - 9

If Range("G" & i).Value = "camion" Then

Sheets("V").Range("E20").Value = Sheets("tr").Range("E" & i - 5).Value
Range("I" & i).Value = Sheets("CR").Range("D34").Value * ((Range("H4") / 100) + 1)

ElseIf Range("G" & i).Value = "IVECO" Then

Sheets("V moto ").Range("E17").Value = Sheets("tr").Range("I" & i - 5).Value
Range("I" & i).Value = Sheets("CR moto)").Range("D34").Value * ((Range("H4") / 100) + 1)

ElseIf Range("G" & i).Value = "voiture" Then

Sheets("V (voiture)").Range("E15").Value = Sheets("tr").Range("M" & i - 5).Value
Range("I" & i).Value = Sheets("CR (voiture)").Range("D34").Value * ((Range("H4") / 100) + 1)

ElseIf Range("G" & i).Value = "avion" Then

Sheets("V (avion)").Range("E17").Value = Sheets("tr").Range("Q" & i - 5).Value
Range("I" & i).Value = Sheets("CR (avion").Range("D34").Value * ((Range("H4") / 100) + 1)


End If




Next i

End Sub