Supprimer la dernière ligne d’un tableau Excel

Bonjour,

Je n’arrive pas à supprimer la dernière ligne de mon tableau Excel, malgré mes recherches sur internet.

Mon souci est que mes tableaux d’origine et le même à chaque fois mais le nombre de lignes et différentes et la dernière ne m’intéressent pas je souhaiterais la supprimer.

Merci pour votre aide.

Baptiste.

Bonjour et bienvenue,
Un petit fichier ?
Cdlt.

Voici le fichier Jean Éric

Bonjour,
Une proposition VBA.
Cdlt.

Public Sub DeleteLastRow()
Dim n As Long
    With Worksheets("Rapport 1")
        n = .Cells(.Rows.Count, 2).End(xlUp).Row
        If n > 4 Then .Cells(n, 1).EntireRow.Delete
    End With
End Sub

Bonjour,

Ceux-là me supprime pas la dernière ligne avec les chiffres a la fin de ma macro.

Je vous transmet le fichier.

Bonjour,
La procédure fournie supprime la dernière ligne comportant la valeur 110 !?
Cdlt.

Bonjour Augusto, Jean-Eric

@Augusto, d'où l'importance de donner le vrai fichier au départ

Si le 110 est en colonne 1 et non 2 comme dans le 1er fichier,
voici une modification et explication du code de Jean-Eric

Public Sub DeleteLastRow()
Dim n As Long
    With Worksheets("Rapport 1")
       ' Recherche la dernière ligne remplie dans la colonne 1
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
      '  Si la dernière ligne n'est pas celle d'entête on supprimer
        If n > 1 Then .Cells(n, 1).EntireRow.Delete
    End With
End Sub

A+

Bonjour Bruno,

Merci de vos conseils et de votre aide ceux-là fonctionne, je serai plus précis la prochaine fois sur mes demandes.

@Jean-Eric ,

Merci aussi de ton aide