Sub etirer_formule()
Dim Row_Id&, Mem_Calc
Row_Id = Application.InputBox(Prompt:="Entrez la ligne de fin", Title:="Demande", Default:=5000, Type:=1)
If Row_Id > 6 And Row_Id < 1048577 Then
Mem_Calc = Application.Calculation
Application.Calculation = xlCalculationManual
Range("K6:S6").AutoFill Destination:=Range("K6:S" & Row_Id)
Application.Calculation = Mem_Calc
ActiveSheet.Calculate
End If
End Sub