Private Sub UserForm_initialize()
MsgBox n
ActiveSheet.Range(Cells(5, 1), Cells(5, 1).Offset(0, (n * 2) - 2)).Select
[COLOR=blue]For Each cell In Selection[/COLOR]
Dim I As Byte
Dim ctrl As Control, ctrl2 As Control
For Each ctrl In Me.Controls
If TypeName(ctrl) = "CheckBox" Then
If ctrl = True Then
It = ctrl.Tag
For Each ctrl2 In Me.Controls
If TypeName(ctrl2) = "TextBox" Then
If ctrl2.Tag = It Then
[COLOR=blue]Userform1.Show 0[/COLOR] 'pour afficher un Userform si le ChectBox est coché je ferai comme cela (on récupe au passage le TextBox [COLOR=blue]Ctrl2[/COLOR] ou sera mis la Saisie)
End If
End If
Next
End If
End If
Next
Set ctrl = Nothing
Set ctrl2 = Nothing
[COLOR=blue]Next cell
[/COLOR]Call ctboxfunction(Me)
End Sub