Sub effacer()
NbLignes = Range('Feuil1!B3').Value
If Not (IsNumeric(NbLignes)) Then Exit Sub
'test pour voir si la valeur est bien numérique'
DerLigne = Range('Feuil2!A6500').End(xlUp).Row
'donne la dernière ligne non vide de la colonne A de la Feuil2'
If NbLignes < DerLigne Then
Worksheets('Feuil2').Select
Range(Cells(NbLignes + 1, 1), Cells(DerLigne + 1, 1)).EntireRow.Delete
End If
End Sub