Salut,
Mets en parametres tes valeurs
coeff deviendrait alors
Sub Coeff(P1 As Range, P2 As Range)
...
ActiveChart.SeriesCollection(1).XValues = P1
ActiveChart.SeriesCollection(1).Values = P2
...
'idem pour le reste.
Tu lances ta procédure comme cela
Coeff Range(RefEdit3.Value), Range(RefEdit2.Value)
A+++