Sub Copie()
Dim rg As Range, c As Range
Dim wsORDA As Worksheet, wsTCD As Worksheet
Set wsORDA = Sheets("ORDA")
Set wsTCD = Sheets("TCD")
Set rg = wsORDA.Range("A7:A" & wsORDA.Range("A" & wsORDA.Rows.Count).End(xlUp).Row)
For Each c In rg
If IsNumeric(c) Then
c.Offset(0, 8).Resize(1, 47).Copy
wsTCD.Range("I" & wsTCD.Range("I" & wsTCD.Rows.Count).End(xlUp).Row + 1).PasteSpecial xlPasteValues, , , True
End If
Next c
End Sub