Pour checker la dernière valeur en col. "B" ?

[frayer]

Bjour,
Je voudrais remplacer la recopie de L9 :AA9 jusqu’en ligne 3509
------------------------------------------------------------
Range("L9:AA9").Select
Range("AA9").Activate
Application.CutCopyMode = False
Selection.Copy
Range("L10:AA3509").Select
ActiveSheet.Paste

>>> Par la recherche de la dernière ligne de données (selon code Forum)
MAIS CA NE FONCTIONNE PAS CAR JE N’AI PAS DE DONNEES EN COL. A (Seult en col. B)
Comment faut-il modifier ces 2 lignes pour checker la colonne “B”
--------------------------------------------------------------
der = Range("A65000").End(xlUp).Row
Selection.AutoFill Destination:=Range("L9:AA" & der), Type:=xlFillDefault

 

[Robert]

Re : Pour checker la dernière valeur en col. "B" ?

Bonjour Frayer, bonjour le forum,

Essaie comme ça :

der = Range("[COLOR=red]B[/COLOR]65536").End(xlUp).Row
Selection.AutoFill Destination:=Range("L9:AA" & der), Type:=xlFillDefault

Subtil non...

 

[frayer]

Re : Pour checker la dernière valeur en col. "B" ?

Great Robert,
Merci

"Le Vieux vivra tant qu'il pourra,
mais pourra-t-il tant qu'il vivra ?"