Private Sub UserForm_Initialize()
' Initialise la boite
TextBox1 = Format(ActiveCell.Offset(0, 0), 'dd/mm')
TextBox2 = ActiveCell.Offset(0, 1)
TextBox3 = ActiveCell.Offset(0, 2)
TextBox4 = ActiveCell.Offset(0, 3)
TextBox5 = ActiveCell.Offset(0, 4)
End Sub