Copier coller sans reference

[SHINTRA]

Hello le forum


Je me trouve face a une situation inattentdue.
je fait en VB en copier collage special puis un retour pour selectionner uniquement les cellules non vides
problemes excel me trouve la derniere cellule copier meme si elle est vides ? pkoi


Voila le code que j utilise

merci 'avance de m 'eclairer.

Range('b23:H175').Select
Sheets('2').activate
Range ('B4')
election.Range('b4').PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 'pour copier mes donnees'
   Range('h65536').Select
    Selection.End(xlUp).Select
    ActiveWindow.ScrollRow = 1
    Range(Selection, 'B4').Select'pour selectionner mes donnes copier'

Selection.Copy