Utilisation de " range().copy Destination:=" VBA

[cycyy]

Bonjour à tous,

J'utilise une macro qui copie/colle une ligne d'une feuille, sur une autre lorsque certaines conditions sont remplies. Cela fonctionne lorsque la procédure est executée "normalement", mais lorsque j'appelle la procédure par un userform, je rencontre une erreur, " erreur définie par l'application ou par l'objet..."

un extrait du code:

Sub TRI_Agencies()

Dim n As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim m As Integer


    Application.ScreenUpdating = False
    Sheets("Agencies").Cells.ClearContents
    Sheets("Agencies").Cells(1, 6).Value = "BID"
    Sheets("Feuil3").Select

n = 1

Do

n = n + 1
Loop Until Cells(n, 1).Value = ""

Dim CRH  As Integer

j = 1
k = 1

For i = 1 To n

    CRH = InStr(1, Cells(i, 1).Value, "CRH", vbTextCompare)

        If CRH <> 0 And Cells(i, 2) > 0 Then

            Sheets("Feuil3").Range("A" & i & ":B" & i & ",D" & i & ",J" & i).Copy Destination:=Sheets("CRH").Range("A" & j + 1)
            j = j + 1
    
        ElseIf CRH <> 0 And Cells(i, 2) < 0 Then

            Sheets("Feuil3").Range("A" & i & ":B" & i & ",D" & i & ",J" & i).Copy Destination:=Sheets("CRH").Range("I" & k + 1)
            k = k + 1
    
    
End If


Next i
end if

userform:

Private Sub CommandButton1_Click()

    If CheckBox1.Value = True Then

        Call Govies.DoTheImport
        Call Govies.TRI_Govies
    
    End If

    If CheckBox2.Value = True Then

        Call Covered.DoTheImport

    End If

    If CheckBox3.Value = True Then

        Call Agencies.TRI_Agencies
        
    End If

End Sub

L'erreur se produit même si la "Feuil3" est sélectionnée, c'est sans doute idiot, mais je coince !

Auriez-vous des idées svp ?

 

[tbft]

Re : Utilisation de " range().copy Destination:=" VBA

Bonjour

serait il possible d'avoir un bout de fichier, svp?

d'avance merci