[VBA] Copier une cellule vers autre classeur

Bonjour,

Après plusieurs recherche je n'ai rien trouvé qui fonctionne.

J'ai 2 fichiers excel, je souhaite copier une cellule du premier onglet du fichier courant vers une cellule du premier onglet d'un fichier existant.

Comment faut il faire ?

Les deux fichiers sont contenus dans le meme dossier.

Ce que j'ai essayé

Dim SourceFile As String, ThisFile As String, ShtToCopy As String
Dim Ws As Workbook, wf As Workbook

    SourceFile = Dir("c:\file1.xls")
    ThisFile = Dir("("c:\file2.xls")
    ShtToCopy = "onglet"

    On Error Resume Next
    Set Ws = Workbooks(SourceFile)
    If Ws Is Nothing Then Workbooks.Open SourceFile

    Set wf = Workbooks(ThisFile)
    If wf Is Nothing Then Workbooks.Open ThisFile
    On Error GoTo 0

    Workbooks(SourceFile).Worksheets(ShtToCopy).Activate
    Cells.Copy
    Workbooks(ThisFile).Worksheets(ShtToCopy).Activate
    Range("A2").Select: ActiveSheet.Paste: Range("A2").Select
    Application.CutCopyMode = False
    Range("A2").Select

Erreur : subscript out of range

Merci par avance pour vos retours.