Private Sub UserForm_initialize()
Phase = Range(Cells(ActiveCell.Row, 2).Address)
Descr = ActiveCell
statu = Range(Cells(ActiveCell.Row, 3).Address)
prior = Range(Cells(ActiveCell.Row, 5).Address)
Pourcent = Range(Cells(ActiveCell.Row, 10).Address)
'DDreel = Range(Cells(ActiveCell.Row, 12).Address)
'DFreel = Range(Cells(ActiveCell.Row, 13).Address)
End Sub