Copying a RAnge of column with a variant number of rows

[holy_eti]

Hello, in my code, I am trying to copy a certain number of columns which is constant. With this, i am trying to copy a cartain number of rows that is variant. My code doesn't seems to work because I have an error 1004: method of Range as failed. I hope that someon e could help me, thank you.

k = 0
For i = 3 To moc_nombre_rap + 2
    If Cells(i, "I").Value = "Notifié" Then
        k = k + 1
    End If
    For j = 6 To k + 5
        If Cells(i, "I").Value = "Notifié" Then
            Sheets("Données brutes").Range("B" & i, "J" & i).Select   ' The error occurs here
            Selection.Copy Destination:=Sheets("Rapport").Range("B" & j)
        End If
        Exit For
    Next j
Next i

Thank you

 

[steve the fish]

You need the sheet to be the activesheet in order to select a range on that sheet. Instead of .Select just use .Copy