Copier dans une colonne si elle est vide

[Agty]

Bonjour à tou(te)s,

Je voudrais copier dans une colonne d'une feuille Excel (seulement si elle est vide) une série de données issue d'une autre colonne. Les deux colonnes appartiennent à des fichiers différents. Quelqu'un(e) peut-il(elle) m'aider à corriger la fin du code ci-après ou m'écrire un code plus simple?
Merci

Workbooks.Open Filename:="L:\...\VBA-Formation\apprentis2.xls"
Worksheets("Feuil1").Activate
Range("A1").Select
If ActiveCell.Value <> "" Then
ActiveCell.Offset(0, 1).Select
End If
Workbooks.Open Filename:="L:\Bases\Feri\france.xls"
Worksheets("climat").Activate
Range("A1:Z1").Select
For Each Cell In Selection
If Cell.Value <> "" Then
ActiveCell.Select
Selection.Offset(1000, 0).Select 'se déplace 1000 lignes en dessous à partir de cellule active
Selection.End(3).Select 'remonte à la dernière cellule renseignée
Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(1, Selection.Column)).Select
Selection.Copy _
Workbooks("apprentis2.xls").Worksheets("Feuil1").Range(Cells(ActiveCell.Row, ActiveCell.Column))

End If
Next