Option Explicit
Sub CpyLigs()
Dim n%: n = Worksheets.Count: If n = 1 Then Exit Sub 'comme c'est entre
'la dernière feuille et l'avant-dernière feuille, il n'y a rien à faire
'si le classeur ne contient qu'une seule feuille : en effet, il faut
'au moins 2 feuilles !
Worksheets(n).Select 'on va sur la dernière feuille du classeur
Dim dlg&: dlg = Cells(Rows.Count, 1).End(3).Row: If dlg = 1 Then Exit Sub
'y'a rien à faire non plus si en colonne A, y'a aucune ligne avec une
'cellule non vide ; en effet, si toutes les données de la colonne A
'sont vides, la dernière cellule rencontrée en partant du bas est A1,
'qui contient le texte "Entete 1".
Dim lig&: lig = [A1].End(4).Row: If lig = 2 Then Exit Sub 'sortie de sub,
'car quand la 1ère ligne non vide est la ligne 2 : y'a aucune ligne vide
'entre la ligne d'en-têtes et la 1ère ligne non vide !
Application.ScreenUpdating = 0 'la mise à jour de l'écran est désactivée
Dim plg As Range: Set plg = [A2].Resize(lig - 2, 14)
Worksheets(n - 1).Select 'on va sur l'avant-dernière feuille du classeur
plg.Copy 'copie des données adéquates dans le presse-papiers de Windows
lig = Cells(Rows.Count, 1).End(3).Row + 1 '1ère ligne vide en dessous
Cells(lig, 1).PasteSpecial -4163 'coller valeurs des données copiées
plg.EntireRow.Delete 'supprime les lignes dont on a copié les valeurs
[A1].Select 'on sélectionne la cellule A1
End Sub