VBA, fermer userform avec bouton valider

Private Sub CommandButton1_Click()
 Dim commune As String
 Dim departement As String
    commune = ComboBox1.Value
    Sheets("liste commune").Activate
    Range("a8").Activate
   Do While ActiveCell.Value <> ""
        If commune = ActiveCell.Value Then
            Range("a2") = ActiveCell.Value
            Range("b2") = ActiveCell.Offset(0, 1).Value
            Range("c2") = ActiveCell.Offset(0, 2).Value
            Range("d2") = ActiveCell.Offset(0, 3).Value
            Range("e2") = ActiveCell.Offset(0, 4).Value
            Range("f2") = ActiveCell.Offset(0, 5).Value
            Unload Me '  <--- à la place de Exit Sub
        End If
        ActiveCell.Offset(1, 0).Activate
    Loop
   Sheets("liste commune").Activate
   Range("a1").Activate
End Sub

Private Sub CommandButton1_Click() 'bouton "Valider"
Dim c As String 'déclare la variable c (Commune)
Dim r As Range 'déclare la varaible r (Recherche)
c = ComboBox1.Value 'définit la variabe c
With Sheets("liste commune") 'prend en compte l'onglet "liste commune"
    Set r = .Range("dernier").Find(c, , xlValues, xlWhole) 'définit la recherche r (recherche la commune dans la plage nommée "dernier")
    If Not r Is Nothing Then 'condition : si il existe au moins une occurrence trouvée
        .Range("A2") = r.Value 'place c en A2
        .Range("B2") = r.Offset(0, 1).Value 'place le nom de la commune en B2
        .Range("C2") = r.Offset(0, 2).Value 'place le total en C2
        .Range("D2") = r.Offset(0, 3).Value 'place le total avec en D2
        .Range("E2") = r.Offset(0, 4).Value 'place le total sans en E2
        .Range("F2") = r.Offset(0, 5).Value 'place les personnes couverte en F2
    Else 'sinon
        .Range("A2:F2").ClearContents 'efface la plage A2:F2
    End If 'fin de la condition
End With 'fin de la prise en compte de l'onglet "liste commune"
Unload Me 'vide et ferme l'USerForm
End Sub