Macro copier coller avec ligne vide

Sub Historique()
Dim Onglet As Worksheet
Dim LigneFin As Long, LigneCible As Long
Dim Bidon As Boolean
Dim Historique As String, Chemin As String

Chemin = ThisWorkbook.Path
Historique = "Historique.xls"

If Dir(Chemin & "\" & Historique) = "" Then MsgBox " Le fichier Historique n'existe pas ou n'est pas à l'emplacement attendu": Exit Sub
Workbooks.Open Chemin & "\" & Historique

With Workbooks(Historique)
'Copie des onglets
 'boucle sur l'ensemble des onglets de ce classeur
  For Each Onglet In ThisWorkbook.Worksheets

  'Test archaïque de l'existance de l'onglet visé
   On Error Resume Next
    Bidon = .Sheets(Onglet.Name).Visible
    'Historique = Err.Number
    If Err.Number = 9 Then
     'Sheets("vm_1m").Copy After:=Workbooks("historisation.xls").Sheets(2)
     Onglet.Copy After:=Workbooks(Historique).Sheets(Workbooks(Historique).Worksheets.Count)
      Else
    'Calcul de la derniere ligne occupée de la colonne A
     LigneFin = Onglet.Range("A" & Rows.Count).End(xlUp).Row
     LigneCible = Sheets(Onglet.Name).Range("A" & Rows.Count).End(xlUp).Row + 1
     .Sheets(Onglet.Name).Range("A" & LigneCible & ":H" & LigneCible + LigneFin - 2) = Onglet.Range("A2:H" & LigneFin).Value
    End If
    On Error GoTo 0
Next Onglet
End With
End Sub

Dim Onglet As Worksheet
 Dim LigneFin As Long, LigneCible As Long
 Dim Bidon As Boolean
 Dim Historique As String, Chemin As String
'boucle sur l'ensemble des onglets de ce classeur
  For Each Onglet In ThisWorkbook.Worksheets
   If InStr(1, "Feuil3,Feuil5", Onglet.Name) = 0 Then
    
 ' traitement 

   End If
 Next Onglet
End Sub