Fermeture de USF sous condition

'.... Empecher la fermeture de USF par la croix
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = 1
End Sub
'prévois un bouton pour fermer
Private Sub CommandButton1_Click()
If TextBox1.Value <> "" And TextBox2.Value <> "" And TextBox3.Value <> "" And TextBox4.Value <> "" And TextBox5.Value <> "" And TextBox6.Value <> "" Then
Unload Me
End If
End Sub