Problème de liaison entre workbooks dans une macro

If .... Then
   'code si condition est [Vrai]
Else
   'code si condition est [Faux]
End If

If .... Then
   'code si condition 1 est [Vrai]
ElseIf .... Then
   'code si condition 2 est [Vrai]
ElseIf .... Then 
   'code si condition 3 est [Vrai]
End If

Set Source = Workbooks.Open(Sheets("tab1").Range("U6").Value)

no_ligne = Sheets("tab1").Range("A" & Application.Rows.Count).End(xlUp).Row + 1

Sub Transcription()
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim no_ligne As Integer 'déclare la variable no_ligne

Set CD = ThisWorkbook 'définit le classeur destination CD
Set OD = CD.Worksheets("Sheet1") 'définit l'onglet destination CD (à adapter éventuellement0
Set CS = Workbooks.Open(OD.Range("U6").Value) 'ouvre le classeur source et le définit (à condition que U6 contienne le nom complet avecchemin d'accès et extention !)
Set OS = CS.Worksheets(1) 'définit l'onglet source (le premier onglet du classeur source quel que soit son nom)
no_ligne = OD.Range("A" & Application.Rows.Count).End(xlUp).Row + 1 'définit la variale no_ligne (première ligne vide dela colonne A de l'onget OD)
If OS.Range("A5") = "Transaction Number" Then 'condition 1 : si la cellule A5 de l'onglet source est égale à "Transaction Number"
    OD.Range("A" & no_ligne) = OS.Range("B4") 'récupère dans la cellule ligne no_ligne colonne A de l'onglet destination, la valeur de la cellule B4 de l'ongelt source
    OD.Range("B" & no_ligne) = OS.Range("B4") 'récupère dans la cellule ligne no_ligne colonne B de l'onglet destination, la valeur de la cellule B4 de l'ongelt source
    OD.Range("E" & no_ligne) = OS.Range("B5") 'récupère dans la cellule ligne no_ligne colonne E de l'onglet destination, la valeur de la cellule B5 de l'ongelt source
    OD.Range("F" & no_ligne) = OS.Range("B2") 'récupère dans la cellule ligne no_ligne colonne F de l'onglet destination, la valeur de la cellule B2 de l'ongelt source
    OD.Range("G" & no_ligne) = "LCD" 'écrit "LCD" dans la cellule ligne no_ligne colonne G de l'onglet destination
    OD.Range("I" & no_ligne) = OS.Range("B8") 'récupère dans la cellule ligne no_ligne colonne I de l'onglet destination, la valeur de la cellule B8 de l'ongelt source
    OD.Range("J" & no_ligne) = OS.Range("B7") 'récupère dans la cellule ligne no_ligne colonne J de l'onglet destination, la valeur de la cellule B7 de l'ongelt source
    OD.Range("K" & no_ligne) = OS.Range("B9") 'récupère dans la cellule ligne no_ligne colonne K de l'onglet destination, la valeur de la cellule B9 de l'ongelt source
    OD.Range("L" & no_ligne) = OS.Range("B20") 'récupère dans la cellule ligne no_ligne colonne L de l'onglet destination, la valeur de la cellule B20 de l'ongelt source
    OD.Range("O" & no_ligne) = OS.Range("B3") 'récupère dans la cellule ligne no_ligne colonne O de l'onglet destination, la valeur de la cellule B3 de l'ongelt source
    OD.Range("Q" & no_ligne) = OS.Range("B6") 'récupère dans la cellule ligne no_ligne colonne Q de l'onglet destination, la valeur de la cellule B6 de l'ongelt source
    OD.Range("R" & no_ligne) = OS.Range("B10") 'récupère dans la cellule ligne no_ligne colonne R de l'onglet destination, la valeur de la cellule B10 de l'ongelt source
Else 'sinon
    OD.Range("A" & no_ligne) = OS.Range("B4") 'récupère dans la cellule ligne no_ligne colonne A de l'onglet destination, la valeur de la cellule B4 de l'ongelt source
    OD.Range("F" & no_ligne) = OS.Range("B2") 'récupère dans la cellule ligne no_ligne colonne F de l'onglet destination, la valeur de la cellule B2 de l'ongelt source
    OD.Range("G" & no_ligne) = "ESC" 'écrit "LCD" dans la cellule ligne no_ligne colonne G de l'onglet destination
    OD.Range("I" & no_ligne) = OS.Range("B5") 'récupère dans la cellule ligne no_ligne colonne I de l'onglet destination, la valeur de la cellule B5 de l'ongelt source
    OD.Range("J" & no_ligne) = OS.Range("B6") 'récupère dans la cellule ligne no_ligne colonne J de l'onglet destination, la valeur de la cellule B6 de l'ongelt source
    If IsEmpty(OS.Cells(no_ligne, 2)) Then 'condition 2 : là je ne sais pas si tu fait référence à l'onglet source ou destination ?
        OD.Range("M" & no_ligne) = OS.Range("B10") 'récupère dans la cellule ligne no_ligne colonne M de l'onglet destination, la valeur de la cellule B10 de l'ongelt source
    Else 'sinon
        OD.Range("M" & no_ligne) = OS.Range("B9") 'récupère dans la cellule ligne no_ligne colonne M de l'onglet destination, la valeur de la cellule BP de l'ongelt source
    End If 'fin de la condition 2
    OD.Range("N" & no_ligne) = OS.Range("B11") 'récupère dans la cellule ligne no_ligne colonne N de l'onglet destination, la valeur de la cellule B11 de l'ongelt source
    OD.Range("O" & no_ligne) = OS.Range("B3") 'récupère dans la cellule ligne no_ligne colonne O de l'onglet destination, la valeur de la cellule B3 de l'ongelt source
    OD.Range("Q" & no_ligne) = OS.Range("B8") 'récupère dans la cellule ligne no_ligne colonne Q de l'onglet destination, la valeur de la cellule B8 de l'ongelt source
    OD.Range("R" & no_ligne) = OS.Range("B12") 'récupère dans la cellule ligne no_ligne colonne R de l'onglet destination, la valeur de la cellule B12 de l'ongelt source
End If 'fin de la condition 1
End Sub