Copie de colonne d'un classeur à un autre avec décalage de ligne

Private Sub cbImporter_Click()

    Const decal = 6

    Dim WkbSrce As Workbook, WkbDest As Workbook
    Dim FeuilSrce As Worksheet
    Dim chemfic As String, onglet As String
    Dim celNom As Range, celLot As Range, celTantG As Range
    Dim nblot As Integer, lgfin As Long
    Dim col As char
    
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False

    nblot = CInt(tbx_nblot.Text)
    onglet = CStr(tbx_onglet.Text)
    ' Ici pour affecter une plage à un objet, il faut utiliser l'instruction Set
    Set celLot = Range(CStr(tbx_celLot.Text))
    Set celNom = Range(CStr(tbx_celNom.Text))
    Set celTantG = Range(CStr(tbx_celTantG.Text))

    lgfin = decale + nblot
    
    'Workbooks.Open Filename:=chemfic
    
    ' Ici il y a ouverture d'un classeur
    Set WkbSrce = Workbooks.Open(chemfic)
    ' Ici il y a attachement d'un objet sur une feuille
    Set FeuilSrce = WkbSrce.Sheets(onglet)

    ' Problème : Ici le classeur actif est WkbScre, voir 2 instructions avant
    ' Alors pourquoi attacher l'objet WkbDest qui semble être le fichier de destination
    Set WbkDest = ActiveWorkbook
    Sheets("Presence").Select
    
    WbkSrce.Activate
    FeuilSrce.Select

        '----- (les 2 classeurs sont ouverts) -----
            'copie Lots
    With FeuilSrce
        col = Column(celLot)
        .Range(celLot & ":" & col & lgfin).Copy
    End With
    
    With WbkDest
        ' -Ici le feuille "Presence" a été sélectionné préalablement
        '  donc la copie sera effectué sur cette feuille
        .Range("C6").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=True
        Application.CutCopyMode = False
    End With
    
                       '-----------code d origine---------
   ' -Une nouvelle copie, et on ne copie qu'une seule
   '  ligne (137) de colonne B à colonne BB ???
   ' -Aucune feuille n'est spécifié, donc dans les deux classeur
   '  c'est la feuille active qui est ciblé
   With WbkSrce
        .Range("B137:BB137").Copy
    End With
    
    With WbkDest
        .Range("A65536").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=True
        Application.CutCopyMode = False
    End With

End Sub

Private Sub cbImporter_Click()

Const decal As Integer = 6

Dim WkbSrce As Workbook
Dim WkbDest As Workbook
Dim FeuilSrce As Worksheet
Dim chemfic As String
Dim onglet As String
Dim celNom As String
Dim celLot As String
Dim celTantG As String
Dim nblot As Integer
Dim lgfin As Long
Dim col As String


    Application.DisplayAlerts = False
    Application.ScreenUpdating = False

    Set WkbDest = ActiveWorkbook
    'Sheets("Presence").Activate
    
    MsgBox (ActiveWorkbook.Name)
    
    nblot = CInt(tbx_nblot.Text)
    onglet = CStr(tbx_onglet.Text)
    chemfic = CStr(tbx_chemfic.Text)
    
    col = Left(tbx_celLot.Text, 1)

    celLot = tbx_celLot.Text
    celNom = tbx_celNom.Text
    celTantG = tbx_celTantG.Text

    lgfin = decal + nblot

    Set WkbSrce = Workbooks.Open(chemfic)
   
        '-----  copie Lots -----

        WkbSrce.Sheets(onglet).Range(celLot & ":" & col & lgfin).Copy

   '---------jusque là ça marche !

        WkbDest.Activate
        WkbDest.Sheets("Presence").Range("C6").PasteSpecial (xlPasteValues)

    WbkDest.Activate
    Sheets("Presence").Range("C6").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

Dim celNom As Range
Dim celLot As Range
Dim celTantG As Range

celNom = "A4"

Set celNom = Range("A4")
celnom.Select
Set celNom = Range("A4:A40")
celNom.Select

    nblot = 5 'CInt(tbx_nblot.Text)
    Onglet = "Fle" 'CStr(tbx_onglet.Text)
    ChemFic = "C:\Document\VBA\Excel\UnClasseur.xls" 'CStr(tbx_chemfic.Text)
    NomFic = "UnClasseur.xls"
    
    col = "B" 'Left(tbx_celLot.Text, 1)
    celLot = "C" 'tbx_celLot.Text
    celNom = "D" 'tbx_celNom.Text
    celTantG = "E" 'tbx_celTantG.Text


    LgFin = decal + nblot
' ... Ici lors de la définition de la plage à copier il manque la colonne
'     remplace le chiffre LgDeb par la bonne position
    LgDeb = 1
    Plage = celLot & LgDeb & ":" & col & LgFin
    
    Set WkbSrce = ActiveWorkbook            'modif
    Set WkbDest = Workbooks.Open(ChemFic)   'modif
    
    WkbSrce.Sheets(Onglet).Range(Plage).Copy
    
'... ici, je ne m'explique pas encore pourquoi
'    l'instruction WkbDest.Activate ne fonctionne pas ...
'    j'ai pourtant déjà vu cette erreur ...
    Workbooks(NomFic).Activate
    
    Sheets("Presence").Range("C6").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

    Set WkbDest = ActiveWorkbook
    Set WkbSrce = Workbooks.Open(chemfic)
                                    'copie dans fichier source
    WkbSrce.Sheets(onglet).Range(plage).Copy
                                    'colle dans fichier destination
    WkbDest.Activate
    Sheets("Presence").Range("C6").Select   'va coller dans fichier destination à partir de cellule "C6"
    ActiveSheet.Paste.Value
    
    'WkbSrce.Sheets(onglet).Range(plage).Copy _
    '    WkbDest.Sheets("Presence").Range("C6").Value
        
    Application.CutCopyMode = False

Range(page).copy.value 

Range(page).value.copy