Sub TIRAGE()
'on compte le nombre de cellules non vide a partir de e3
derniere_ligne = Range("e3").End(xlDown).Row
' ou derniere_ligne = ActiveSheet.UsedRange.Rows.Count
Range("B3").AutoFill Destination:=Range("B3:B" & derniere_ligne), Type:=xlFillDefault
Range("c3").AutoFill Destination:=Range("c3:c" & derniere_ligne), Type:=xlFillDefault
Range("d3").AutoFill Destination:=Range("d3:d" & derniere_ligne), Type:=xlFillDefault
Range("m3").AutoFill Destination:=Range("m3:m" & derniere_ligne), Type:=xlFillDefault
Range("w3").AutoFill Destination:=Range("w3:w" & derniere_ligne), Type:=xlFillDefault
Range("x3").AutoFill Destination:=Range("x3:x" & derniere_ligne), Type:=xlFillDefault
Range("y3").AutoFill Destination:=Range("y3:y" & derniere_ligne), Type:=xlFillDefault
End Sub