Sub SuppressionsLignes()
Dim idxLigne As Variant
'Chercher la dernière ligne avec une valeur numérique de la colonne A
idxLigne = Application.Match(9 ^ 9, Range("A:A"), 1)
'Si trouvée
If Not IsError(idxLigne) Then
'Supprimer les lignes de idxLigne+1 à la fin de la feuille
Range(Cells(idxLigne + 1, 1), Cells(Rows.Count, 1)).EntireRow.Delete
End If
End Sub