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'