Erreur 13 - Incompatibilité de type

Bonjour à tous,

Dans mon code ci-dessous j'ai une "erreur 13 - incompatibilité de type" et impossible de trouver la correction

Quelqu'un peut m'éclairer svp ?

L'erreur se fait à partir d'ici :

sh2.Rows(tr & ":" & tr + nb).Delete Shift:=xlUp

Code complet :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, lastRw As Long, i As Integer
Dim sh1 As Worksheet, sh2 As Worksheet

Set sh1 = Sheets("RECAP")
Set sh2 = Sheets("DETAIL")

With sh2

    If Not Application.Intersect(Target, Columns("I")) Is Nothing Then

    lastRw = .Cells(Rows.Count, "B").End(xlUp).Row + 1

'    ======================================================================
        nb = Application.CountIf(sh1.Range("B:B"), sh1.Cells(Target.Row, "B"))
        If nb <> 0 Then
            tr = Application.Match(sh1.Cells(Target.Row, "B"), sh2.Range("B:B"), 0)
            nbr = Application.Sum(sh1.Range("G" & Target.Row & ":I" & Target.Row))
            sh2.Rows(tr & ":" & tr + nb).Delete Shift:=xlUp
            sh2.Rows(tr & ":" & tr + nbr).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

            lastRw = tr
        End If
'    ======================================================================

        .Cells(lastRw, "B") = sh1.Cells(Target.Row, "B").Value
        .Cells(lastRw, "C") = sh1.Cells(Target.Row, "C").Value
        .Cells(lastRw, "D") = sh1.Cells(Target.Row, "D").Value
        .Cells(lastRw, "E") = sh1.Cells(Target.Row, "E").Value
        .Cells(lastRw, "F") = sh1.Cells(Target.Row, "F")
        .Cells(lastRw, "G") = Year(sh1.Cells(Target.Row, "F"))

        With sh2.Range("B" & lastRw & ":K" & lastRw)
            .Interior.Color = RGB(255, 242, 204)
            .Font.Bold = True
        End With

        For Each c In sh1.Range("G" & Target.Row & ":I" & Target.Row)
            For i = 1 To c.Value
                lastRw = lastRw + 1

                .Cells(lastRw, "B") = sh1.Cells(c.Row, "B").Value
                .Cells(lastRw, "C") = sh1.Cells(c.Row, "C").Value
                .Cells(lastRw, "D") = sh1.Cells(c.Row, "D").Value
                .Cells(lastRw, "H") = sh1.Cells(3, c.Column).Value
            Next i
        Next c
    End If
End With
End Sub

Merci d'avance pour votre aide !!!

Salut,

J'ai placé ta macro dans le fichier ci-joint et je n'ai pas d'erreur, le code fonctionne parfaitement.

Probablement que tu devras nous montrer ton fichier

Amicalement.

Bonjour,

Déclare tr en variant et vérifie le résultat :

tr = Application.Match(sh1.Cells(Target.Row, "B"), sh2.Range("B:B"), 0)
if not IsError(tr) Then
'….
End If