private Sub UserForm_Initialize()
If saisie = 0 Then saisie = 1
End Sub
Private Sub TextBox1_Change()
Sheets("Feuil1").Cells(2, saisie).Value = TextBox1.Value
End Sub
Private Sub CommandButton1_Click()
If saisie = 1 Then saisie = 2 Else saisie = 1
Unload Me
End Sub