Détecter comme variable le N° de la ligne

[Sabine]

Bonsoir le forum,

Je voulais savoir si vous aviez une idée comment detecter le numéro de la ligne en question et supprimer à partir de cette ligne le reste des cellules remplies.

1 er pb : déclarer ss forme de variables le n° de la ligne ???
ca plante à ce niveau :
Faf = Row('Baby')
Rows('Faf:10000').Select

2eme pb : detecter la derniere cellule vide dans la col. A par ex. et supprimer. N'y étant pas arrivée, j'ai fait jusqu'à la ligne 5000, au pif !

car en fait j'ai des lignes remplies, mais certaines avec des données renseignés en col L et d'autres non !

Ci-joint, mon ébauche pour plus de compréhension. Merci d'avance pour votre aide.

Sub patrik()

Dim Baby As Variant
Dim Faf As Variant

'Initialisation de la feuille
Sheets('impression sortie pce').Select
Range('A4:IV65536').ClearContents

'On copie les données de Feuil1, on les colle et on les trie suivant la col. 'L'
Sheets('Feuil1').Select
Rows('5:5000').Select
Selection.Copy
Sheets('impression sortie pce').Select
Range('A4').Select
ActiveSheet.Paste
Application.CutCopyMode = False
'Tri
Selection.Sort Key1:=Range('L4'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range('A4').Select

'On cherche la dernière cellule vide en col.'L' et on écrase la suite.
'Il n'y a pas d'emplacement donc on s'en fout !
Range('L65536').End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Else
ActiveCell = Baby
'Range('Baby:10000').Select
Faf = Row('Baby')
Rows('Faf:10000').Select
Selection.Delete Shift:=xlUp
End If
Loop

'Impression de la feuille
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
'Brother HL-5140 series sur LPT1:', Collate:=True

End Sub