Copier une tableau avec des cellule vides

Salut,
Cet exemple (approximatif mais efficace) copie la colonne C de la Feuil1 vers la colonne C de la Feuil2, sans les cellules vides :

Sub copicollesansvide()
Dim premlig As Integer, derlig As Integer, derniere As Integer
Dim nom As String
derniere = Range("C65536").End(xlUp).Row
Sheets("Feuil1").Range("C1").Select
nom = ActiveCell.Address
Do While nom <> "$C$" & derniere
If ActiveCell <> "" Then
premlig = ActiveCell.Row
If ActiveCell.Offset(1, 0) = "" Then
derlig = ActiveCell.Row
Range("C" & premlig, "C" & derlig).Copy Sheets("Feuil2").Range("C65536").End(xlUp).Offset(1, 0)
Selection.End(xlDown).Select
nom = ActiveCell.Address
Else
derlig = Selection.End(xlDown).Row
Range("C" & premlig, "C" & derlig).Copy Sheets("Feuil2").Range("C65536").End(xlUp).Offset(1, 0)
Selection.End(xlDown).Select
Selection.End(xlDown).Select
nom = ActiveCell.Address
If nom = "$C$65536" Then
Range("A1").Select
Exit Sub
End If
End If
Else
ActiveCell.Offset(1, 0).Select
nom = ActiveCell.Address
End If
Loop
End Sub

Merci Pijaku pour ta réponse, mais le code copie toute la colonne, par contre j'ai besoin que des cellules non vode dans cette colonne
Merci

Ce code ne copie que les cell non vides...

Merci pour la réponse,
J'ai vérifié et ça marche pas, y'a t-il un moyen de t'envoyer mon fichier pour le tester?
Merci d'avance

Voici une solution trouvé avec le soutien précieux de Franck [PijaKu]
Il s'agit de copier une colonne G:G dans la feuil1 et la coller dans la colonne A:A de la feuil3

Sub Récap()
Sheets("Feuil2").Columns("A:A").ClearContents
Sheets("Feuil1").Select
Columns("G:G").Copy Sheets("Feuil2").Columns("A:A")
Sheets("Feuil2").Select
Columns("A:A").AutoFilter Field:=1, Criteria1:="<>"
Columns("A:A").Copy Sheets("Feuil3").Columns("A:A")
Application.CutCopyMode = False
Sheets("Feuil3").Select
Columns("A:A").EntireColumn.AutoFit
Range("A1").Select

End Sub