Copier fichier csv

Bonjour,

Je suis un novice en VBA et en copiant ce que je lis, jais fait une formule pour copier les données d'un fichier CSV vers un fichier xls "rapport". Mon soucis et que lorsque je lance la macro, le fichier se copier dan un nouveau classeur et pas dans mon fichier qui est ouvert.
Deuxième demande, je voudrais vérifié si une cellule contient bien un texte défini avant de copier. Si pas pas correct un message apparaît et pas de copie.
Merci de m'éclairer.

René

Sub import_csv()
Dim wk1 As Workbook, wk2 As Workbook
Dim chemin As String, fichier As String

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set wk1 = ThisWorkbook

'Indique le répertoire du fichier csv
'ici le même répertoire que le fichier destination
chemin = wk1.Path & "\"

'définit le nom du fichier à importer
fichier = "trend0hd02.csv"

'ouvre le fichier csv
Workbooks.Open chemin & fichier

Set wk2 = Workbooks(fichier)

'copie sheet
Sheets("trend0hd02").Select
Sheets("trend0hd02").Copy

wk2.Close

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub