Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Dim N As Long, sh As Worksheet
ActiveWorkbook.Unprotect "calme"
For Each sh In Worksheets
sh.Unprotect "calme"
Next sh
ComboBox1.List = Array("", "PC", "DP", "PA", "PD", "MODIF", "TPA", "CU")
ComboBox2.List = Array(vbNullString, "NS", "AL", "LJ", "MV")
ComboBox3.List = Array(19, 20, 21, 22, 23)
Controls("TextBox1").Visible = True: Controls("TextBox2").Visible = True
Controls("CommandButton1").Visible = True: Controls("CommandButton2").Visible = True
End Sub