Fermer Userform & Msgbox

Bonjour le forum,

Je n’arrive pas à mettre au point une formule qui ne doit pourtant pas être très compliquée

Le code doit s’appliquer au bouton "fermer" d’un Userform,

Je souhaite :

Si la feuille ("BL1") cellule ("M40") = "" : fermer le userform
Si la feuille ("BL1") cellule ("M40") > 0,1: un MsgBox

J’ai essayé le code

Private Sub BTFermer_Click()
If Sheets("BL1").Range("M40") = "" Then
Unload Me
End If
Exit Sub
If Sheets("BL1").Range("M40") > 0.1 Then
Select Case MsgBox("Vous n'avez pas enregistrer vos données." _
& vbCrLf & "" _
& vbCrLf & "Voulez vous quitter ?" _
, vbYesNo Or vbInformation Or vbDefaultButton1, Application.Name)
Case vbYes
Case vbNo
Exit Sub
End Select
End If
Range("d16:d36").ClearContents
Range("i16:K36").ClearContents
Unload Me
End Sub

Mais je dois avoir un problème car si M40>0.1, il ne se passe rien

En l’attente de proposition merci d’avance


lanoe