A tout zazarrr(sans fichier!!): mets toi en A100 ou A650000 comme tu veux, et fais CTLR+flèche haut et tu verras si tu n'as aucune donnée en A tu te retrouveras en A1 ce qui est normal! .End(xlUp)= CTRL+flèche haute
A+
[Edit]Hello Pierrot, Jean-Marcel(failli te loupper),David
Sub tt()
derlig = Worksheets("TRI").Range("A" & Rows.Count).End(xlUp).Row
If derlig = 1 And Worksheets("TRI").Range("A1").Value = "" Then derlig = 0
End Sub