Petit soucis avec mon userform

Private Sub UserForm_Initialize()
Dim entête As Integer, Lig As Long, Plg As Range
Dim Zc As Integer, I As Integer
For entête = 1 To 9
If entête <> 6 Then
Me.Controls("label" & entête).Caption = Cells(1, entête)
End If
Next entête
For Zc = 1 To 11
Select Case Zc
Case 1 To 5, 8 To 11
I = I + 1
Me.Controls("label" & Zc).Caption = Cells(1, Zc)
End Select
Next Zc
Me.CommandButton1.Enabled = False 'ajout
Me.CommandButton2.Enabled = False 'modifie
Me.OptionButton1 = False 'ajout
Me.OptionButton2 = False 'modifie
With Me.ListBox1
.ColumnCount = 2
.ColumnWidths = "90;0" 'largeur
End With
End Sub

Cliquez pour agrandir...