Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = True
If TextBox1 <> "" Then ActiveCell(1, 2) = Format(Date, "dd.mm.yy : ") & Replace(TextBox1, vbLf, " - ") & vbLf & ActiveCell(1, 2)
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ActiveCell(1, 2).Select 'pour quitter la colonne I
End Sub