sub test()
dim Equation as string, R as double, Données_x as range, DOnnées_y as Range
Set Données_x = Range("A1:A100") 'à adapter
Set Données_y = Range("B1:B100") 'idem
Equation = Excel.WorksheetFunction.Slope(Données_y, Données_x) & "x + " & Excel.WorksheetFunction.Intercept(Données_y, Données_x)
R = Excel.WorksheetFunction.Rsq(Données_y, Données_x)
msgbox Equation & vblf & "R²=" & R
end sub