Private Sub UserForm_Initialize()
Dim c As Range, ctrl As Control
For Each ctrl In Me.Controls
If TypeName(ctrl) = "ComboBox" Then
ctrl.Visible = False
End If
next ctrl
For Each c In Range("nbmois").Cells
For Each ctrl In Me.Controls
If TypeName(ctrl) = "ComboBox" Then
If ctrl.Name = c.Value Then
ctrl.Visible = True
End If
End If
Next ctrl
Next c
End Sub