1 : 2 : 3 : 4 : 5 : 6 : 7 :
Sub de class= () ' Gamme (« A1 »). Choisi ActiveCell.Select Destination de Selection.AutoFill : =ActiveCell.Range (« A1 : A3285 ») ActiveCell.Range (« A1 : A3285 »). Choisi Extrémité Sub