Application.EnableEvents = False
Application.ScreenUpdating = False
Sheets("Feuil1").Select
Range("a2", Range("a1048576").End(xlUp)).Select
'ActiveSheet.Range("a2", Range("a2").End(xlDown).End(xlToRight)).Select
Selection.RowHeight = 40
Application.EnableEvents = True
Application.ScreenUpdating = True