Macro copier-coller deplacer sur la droite si cellule pleine

Sub Importer_plage_A1()
Dim objcible As Workbook, objsource As Workbook
Dim cel As Variant, c As Long
Set objsource = Workbooks(nomclassuersource.xlsm)
Set objcible = Workbooks(nomclassuercible.xlsx)
Application.ScreenUpdating = False
nucol = objcible.Sheets(1).Cells(1,Rows(1).Cells.Count).End(xlUp).Column objsource.Sheets(1).Range("A1 ").copy Destination := objcible.Sheets(1).Cells(1,nucol)
Set objcible = Nothing
Set objsource = Nothing
Application.ScreenUpdating = True
End Sub

nucol = objcible.Sheets(1).Cells(1,Rows(1).Cells.Count).End(xlUp).Column

objsource.Sheets(1).Range("A1 ").copy Destination := objcible.Sheets(1).Cells(1,nucol)

nucol = objcible.Sheets(1).Cells(1, Rows(1).Cells.Count).End(xlToLeft).Column + 1

Set objsource = Workbooks("fichier2.xlsm")

objsource.Sheets(1).Range("A1 ").copy Destination := objcible.Sheets(1).Cells(1,nucol)

objsource.Sheets(1).Range("A1 ").Copy 
objcible.Sheets(1).Cells(1,nucol).PasteSpecial xlPasteValues

Sub Importer_valeur_cellule()
Dim objcible As Workbook, objsource As Workbook
Dim c As interger, nbvaci As Integer, nbvaso As Integer
Set objsource = Workbooks("Classeur11.xlsm")
Set objcible = Workbooks("classeur12.xlsx")
Application.ScreenUpdating = False
' contrôler si nouvelle valeur sur classeur source
nbvaso = WorksheetFunction.CountA(objsource.Sheets("Feuil1").Rows(1))
nbvaci = WorksheetFunction.CountA(objcible.Sheets("Feuil1").Rows(1))
If nbvaci < nbvaso Then
    For c = 1 To (nbvaso - nbvaci)
        objsource.Sheets("Feuil1").Cells(1, nbvaci + c).Copy
        objcible.Sheets("Feuil1").Cells(1, nbvaci + c).PasteSpecial xlPasteValues
    Next c
End If
Set objcible = Nothing
Set objsource = Nothing
Application.ScreenUpdating = True
End Sub 

Sub Importer_valeur_cellule()
Dim objcible As Workbook, objsource As Workbook
Dim shci As Object, shso As Object
Dim c As Integer, nbvaci As Integer, nbvaso As Integer
Set objsource = Workbooks("fichier1.xlsx")
Set objcible = Workbooks("fichier2.xlsm")
Set shso = objsource.Sheets("Feuil1")
Set shci = objcible.Sheets("Feuil2")

Application.ScreenUpdating = False
' contrôler si nouvelle valeur sur classeur source
nbvaso = WorksheetFunction.CountA(shso.Rows(1))
nbvaci = WorksheetFunction.CountA(shci.Rows(1))
If nbvaci < nbvaso Then
 For c = 1 To (nbvaso - nbvaci)
 shso.Cells(1, nbvaci + c).Copy
 shsi.Cells(1, nbvaci + c).PasteSpecial xlPasteValues
 Next c
End If
Set objcible = Nothing: Set shci = Nothing
Set objsource = Nothing: Set shso = Nothing
Application.ScreenUpdating = True
End Sub