Private Sub CommandButton1_Click()
If Controls("Objett") = "" Then
MsgBox "Vous devez ABSOLUMENT indiquer votre Objet Réclamation !", vbCritical, _
"ERREUR ... votre Objet Réclamation SVP !"
Controls("Objett").SetFocus
Exit Sub
End If
Sheets("F001").TextBox1.Text = objett.Text
Unload UserForm1
MsgBox "Merci, votre demande a bien été prise en compte ! ", vbInformation
End Sub