Coup de pouce VBA_userform

Set Sht = Sheets("Liste")
          l = Sht.Range("A" & Rows.Count).End(xlUp).Row + 1
    ' Remplir la partie
    If Me.CheckBox1 = True Then  'cat1
        For i = 2 To 7
            If Me("CheckBox" & i) = True Then
                Sht.Range("A" & l).Value = Me.CheckBox1.Caption    'cat1
                Sht.Range("B" & l).Value = Me("Textbox" & i + 30).Value
                Sht.Range("C" & l).Value = ComboBox13.Value
                Sht.Range("D" & l).Value = ComboBox1.Value
                Exit For
                End If
        Next
    End If
    l = Sht.Range("A" & Rows.Count).End(xlUp).Row + 1
    If Me.CheckBox8 = True Then  'cat2
        For i = 9 To 12
            If Me("CheckBox" & i) = True Then
                Sht.Range("A" & l).Value = Me.CheckBox1.Caption    'cat2
                Sht.Range("B" & l).Value = Me("Textbox" & i + 29).Value
                Sht.Range("C" & l).Value = ComboBox13.Value
                Sht.Range("D" & l).Value = ComboBox1.Value
                Exit For
            End If
        Next
    End If

Sub MailOXpress()
Dim dest$, sujet$, texte$

    dest = "f.s@wanadoudou.disdonc"
    sujet = "Envoyer un mail depuis Xl"
    texte = "Envoyé avec Outlook Express depuis Excel"
    Shell "C:\Program Files\Outlook Express\msimn.exe " & _
    "/mailurl:mailto:" & dest & _
    "?subject=" & sujet & _
    "&Body=" & texte & ", 3"
End Sub