Problème de format dans une boucle

[COLOR="DarkSlateGray"][B]Private Sub UserForm_Initialize()
   With Sheets("PROG")
      Lig = ActiveCell.Row
      For i = 1 To 10
         If (i = 1 Or i = 2 Or i = 3 Or i = 4 Or i = 5 Or i = 7 Or i = 8 Or i = 9 Or i = 10) And .Cells(Lig, i) <> "" Then
            Me.Controls("TextBox" & i) = .Cells(Lig, i)
         ElseIf (i = 3) And .Cells(Lig, i) <> "" Then
            Me.Controls("TextBox3") = .Cells(Lig, 3).Text
         ElseIf (i = 6) And .Cells(Lig, i) <> "" Then
            Me.Controls("comboBox" & i) = .Cells(Lig, i)
         End If
      Next i
   End With
End Sub[/B][/COLOR]

[COLOR="DarkSlateGray"][B]Private Sub UserForm_Initialize()
   With Sheets("PROG")
      Lig = ActiveCell.Row
      For i = 1 To 10
         If .Cells(Lig, i) <> "" Then
            Select Case i
               Case 3: Me.Controls("TextBox3") = .Cells(Lig, 3).Text
               Case 6: Me.Controls("comboBox6") = .Cells(Lig, 6)
               Case Else: Me.Controls("TextBox" & i) = .Cells(Lig, i)
            End Select
         End If
      Next i
   End With
End Sub[/B][/COLOR]