Copier/coller en VBA

Hello,
test avec: 'ActiveSheet' et retire le 'endif'

Sub copier_coller()
Dim i As Integer
Dim comp As Integer

comp = 0

For i = 2 To 627
Sheets(4).Activate
If Not IsEmpty(Cells(i, 1)) Then
Cells(i, 1).Select
Selection.Copy
Sheets(5).Activate
Cells(comp + 1, 1).Select
ActiveSheet.Paste
comp = comp + 1
Next i

End Sub

si ça ne fonctionne pas, aide-toi de l'enregistreur de macro (en le faisant à la main) puis regarde le code après!