Mon userform plante

Private Sub CommandButton1_Click() 'bouton 'Ok'
Dim Dl As Long 'déclare la variable Dl (Dernière ligne)
Dim X As Byte 'déclare la variable x

With Sheets('Feuil2')
        .Activate 'active l'onglet 'Feuil2'
        Dl = .Range('A65536').End(xlUp).Row + 1 'définit la variable Dl

        'place les donnés dans le tableau
        For X = 1 To 8 'boucle sur les 8 textbox
                .Cells(Dl, X).Value = Me.Controls('TextBox' & X).Value
        Next X
        For X = 1 To 5 'boucle sur les 5 comboboxs
                .Cells(Dl, X + 8).Value = Me.Controls('Combobox' & X).Value
        Next X
Unload Me 'vide et ferme l'UserFOrm

'tri selon le nom
.Range('A1').CurrentRegion.Sort Key1:=Range('A1'), Order1:=xlAscending, Header:= _
                xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                DataOption1:=xlSortNormal
End With
End Sub

Cliquez pour agrandir...