Sub Transfert()
'Feuil1 et Feuil2 sont les CodeNames des feuilles
Dim plage As Range
Set plage = Feuil1.Range("C2", Feuil1.[C65536].End(xlUp))
If plage.Row = 1 Then Exit Sub 'sécurité
On Error Resume Next
Set plage = Intersect([A:T], plage.SpecialCells(xlCellTypeConstants).EntireRow)
If Err = 0 Then
plage.Copy Feuil2.Cells(Feuil2.[C65536].End(xlUp).Row + 1, 1)
plage.Delete xlUp
Feuil2.Activate 'facultatif
End If
End Sub