Copier/coller plusieurs fois ne fonctionne plus

Private Sub worksheet_change(ByVal target As Range)

Dim wshHor As Worksheet
Dim wshPCDF As Worksheet
Dim wshVert As Worksheet
Dim rngFindSeq As Range
Dim strSeq As String
Dim intNbSeq As Integer
Dim rngCellSeq As Range
Dim rngSeqHor As Range
Dim intLigne As Integer
Dim intColumn As Integer
Dim I As Integer

'Permet d'optimiser la vitesse du code
'________________________________________________________

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False

On Error GoTo Erreurs

'Déclaration des feuilles
'_________________________________

Set wshVert = Worksheets("SeqVert")
Set wshHor = Worksheets("SeqHor")
Set wshPCDF = Worksheets("PCDF Séq.")



'Déclaration des variables
'_________________________________

intNbSeq = wshVert.Range("bytNbSeq").Value

If target.Value <> "" Then

For I = 0 To intNbSeq - 1

    If target.Value = wshVert.Cells(5 + I, 3).Value Then

        intLigne = target.Row
        intColumn = target.Column
        
        'Définition des noms de séquence + recherche de la séquence dans SeqHor
        
        strSeq = target.Value

        'Déclaration Range de recherche
        
        Set rngFindSeq = wshHor.Range("A1", "A65356")

        'Recherche de la séquence
        
        Set rngCellSeq = rngFindSeq.Find(what:=strSeq, LookAt:=xlWhole, MatchCase:=False)
        Set rngSeqHor = rngCellSeq.CurrentRegion


        rngSeqHor.Offset(2, 0).Resize(rngSeqHor.Rows.Count - 2, rngSeqHor.Columns.Count).Copy
        wshPCDF.Cells(intLigne, intColumn + 1).PasteSpecial

    End If

Next I

End If


'Réinitialise Excel
'________________________________________________________

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = True

Exit Sub

'********************************************************
                    'ERROR HANDLING
'********************************************************
Erreurs:

If Err <> 0 Then 
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = True
End if

End Sub