Copier coller toute une colonne

Salut les amis!
après avoir répondu a ma première préoccupation; permettez moi de vous exposer un deuxième.
Le problème que je traite est de rechercher dans la feuille dépense la colonne ayant pour titre LFI 2013; la copier entièrement et la coller juste après la dernière colonne non vide d'une autre feuille de calcul.
tantôt je reçois des messages d'erreurs après exécution de la syntaxe ci dessous; tantôt je ne reçois pas de message d'erreur, mais aucun résultat ne s'affiche.

les amis, aider moi à retrouver la bonne syntaxe.

Public Sub CUMUL_Selectionne()
Dern_Col = Workbooks("APP DNB.xlsm").Worksheets(Worksheets.Count).Range("TXA1").End(xlToLeft).Columns
Dim i
Dim w
w = InputBox("Veuillez saisir l'année ! " & Chr(10) & "Par Exemple : 2013", "ANNEE CONCERNEE")
For i = 1 To 1000
If Workbooks("APP DNB.xlsm").Worksheets("Dépenses").Cells(1, i).Value = Trim("LFI" & w) Then
i = CInt(i)
Workbooks("APP DNB.xlsm").Worksheets("Dépenses").Columns(i).Copy Workbooks("APP DNB.xlsm").Worksheets(Worksheets.Count).Cells(1, 1 + Dern_Col)
End If
Next i
End Sub