Evenement UserForm_QueryClose

Bonjour

y a un evenement qui se declanche a chaque fois que je ferme mon USERFORM
je souhaiterais que cet evenement se declanche par un clique sur un bouton au lieu de cliquer sur la croix de USERFORM

voici le code

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    If CloseMode = 0 Then
        ThisWorkbook.Sheets("CONFIG").Cells(4, 2).Value2 = Carburant.Text
        If ThisWorkbook.Sheets("CONFIG").Cells(ligne_mot, 2).Value2 = vbNullString _
            Or ThisWorkbook.Sheets("CONFIG").Cells(3, 2).Value2 = vbNullString _
            Or ThisWorkbook.Sheets("CONFIG").Cells(2, 10).Value2 = vbNullString Then
            Cancel = 1
            MsgBox ("Veuillez remplir tous les champs svp.")
        End If
    End If

End Sub

j'ai essayer de appele cet evenement a partir dun bouton mais ca ne marche pas

Private Sub CommandButton1_Click()
UserForm_QueryClose
End Sub

y a til un moyen de le faire ?

je vous remercie d'avance pour votre aide