VBA copier-coller

Bonjour le forum,

J'ai réussi, tant bien que mal, à construire une macro allant chercher des plages de données non vides dans 2 classeurs différents pour ensuite les reporter dans un 3 ème classeur (de récap).

J'ai eu l'idée de tester cette macro avec une plage de données de cellules vides (fichier source non alimenté).

Et je suis confronté à un problème :

Si le premier fichier de la macro ne contient pas de données à coller et que le second oui, les valeurs de ce second ne se mettent pas à la suite sur le fichier de destination.

J'espère être clair ?

Voici le code :

rivate Sub CommandButton1_Click()
    Workbooks.Open Filename:= _
    "\\vcn.ds.volvo.net\rtc-bour\proj02\015443\02_Dossiers par UEP\UEP 5375 Pont&Essieu\00_Team Board\TL1 YD\2020\ANDON 2020 TL1.xlsm" _
    , UpdateLinks:=3
    Worksheets("ICP").Activate
    ActiveSheet.Range("$A$1:$I$2000").AutoFilter Field:=9, Criteria1:="=", _
         Operator:=xlAnd
    Range("G:G,H:H,I:I").Select
    Selection.EntireColumn.Hidden = True
    Rows("1:1").Select
    Selection.EntireRow.Hidden = True
    derlig = Range("A1").CurrentRegion.Select
    dercol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
    Selection.Copy
    Workbooks("NEW UP2 SUGGESTIONS 2020.xlsm").Activate
    Destination = Sheets("PREP P&E").Cells(Rows.Count, 1).End(xlUp)(2).PasteSpecial(xlPasteValues)
    Range("G121").Select

'code à insérer pour passer à la suite de la macro si pas de données à copier depuis la macro ci-dessus

    Workbooks.Open Filename:= _
    "\\vcn.ds.volvo.net\rtc-bour\proj02\015443\02_Dossiers par UEP\UEP 5375 Pont&Essieu\00_Team Board\TL2 RV\INDICATEUR\2020\ANDON 2020 TL2.xlsm" _
     , UpdateLinks:=3
     Worksheets("ICP").Activate
    ActiveSheet.Range("$A$1:$I$2000").AutoFilter Field:=9, Criteria1:="=", _
         Operator:=xlAnd
    Range("G:G,H:H,I:I").Select
    Selection.EntireColumn.Hidden = True
    Rows("1:1").Select
    Selection.EntireRow.Hidden = True
    derlig = Range("A1").CurrentRegion.Select
    dercol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
    Selection.Copy
    Workbooks("NEW UP2 SUGGESTIONS 2020.xlsm").Activate
    Destination = Sheets("PREP P&E").Cells(Rows.Count, 1).End(xlUp)(2).PasteSpecial(xlPasteValues)
    Unload Import_Données_STs
    Range("G121").Select
    If MsgBox("Données importées avec succès !", vbOKOnly + vbApplicationModal + vbInformation, "INFORMATION") = vbOK Then
    End If
    End Sub

C'est un fichier comportant beaucoup de données sensibles, c'est pour cela que je ne le joins pas...