indiquer No de ligne et copier

[jean]

bonjour a tous

je cherche a copier la selection ('b:i')

je n'ais pas le numero de la ligne car il corespond a la derniere ligne non vide de la colone A
Je n'arrive pas a trouver le numero de cette derniere ligne?

voila ce que j'ai fait mais c'est faut!

Sub jean()
dim nbl as integer
nbl = Range('a65536').End(xlUp).
range('b:i' & nbl).Select
Selection.Copy
Range('af65536').End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Range('b1:i15').Select
Selection.ClearContents
Worksheets('données').Select
Range('a2:i16').Select
Selection.ClearContents

merci pour votre aide

 

[Bebere]

bonjour

les 2 lignes corrigées

nbl = Range('a65536').End(xlUp).Row
Range('b' & nbl & ':i' & nbl).Select

au revoir