With Workbooks("Regression_Calcul.xlsm").Worksheets("Regression")
.Range("a19:B100").Copy
' voici la ligne qui me pose pb, je n'arrive pas à la corriger
Workbooks("Analyse_1.xlsm").Worksheets("15_Analyse").Range("mf4").End(xlUp).Row+1.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Set laplage = Nothing
End With