MsgBox qui revient tout le temps

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("B10:D25")) Is Nothing Then  'C12
        Application.EnableEvents = False
    If Application.WorksheetFunction.CountBlank(Range("B10:C12")) < 3 Then
        MsgBox "Vous devez inscrire au moins 3 utilisateurs avec leur mot de passe"
    End If
Application.EnableEvents = True

'Affiche destinataires e-mail
    Dim reponse As Variant
    If Target.Address = "$D$25" Then
        If LCase(Target.Value) = "x" Then
            Range("K36").Value = "x"
        Else
            reponse = MsgBox("Autoriser à visualiser les e-mail ?", vbYesNo + vbQuestion)
            If reponse = vbYes Then
                Range("K36").Value = "x"
            Else
                Range("K36").Value = ""
            End If
        End If
    End If
   
End If
End Sub