bonjour,
Tu as du supprimer (ou remplacer) des TextBox.
Par suite ton Userform cherche des TextBox qui n'existent plus...
A la fin du Initialize remplacer :
For I = 1 To 4
Me.Controls("TextBox" & I).Visible = True
Next I
End Sub
... par :
For I = 1 To 2
La suite sans changement.
Nota: Tu vas avoir le même genre de problème avec toutes autres Sub... Faire de même !
A+