Private Sub UserForm_activate()
'(...)
resultat.TextBox5.Value = [COLOR="Blue"]Format([/COLOR]ActiveCell.Offset(0, 5)[COLOR="Blue"], "00 00 00 00 00")[/COLOR]
resultat.TextBox6 = [COLOR="Blue"]Format([/COLOR]ActiveCell.Offset(0, 6)[COLOR="Blue"], "00 00 00 00 00")[/COLOR]
resultat.TextBox7.Value = [COLOR="Blue"]Format([/COLOR]ActiveCell.Offset(0, 7)[COLOR="Blue"], "00 00 00 00 00")[/COLOR]
End Sub