inserer msgbox sur macro déplacer ligne

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim adresse$, x&, c As Range

    Select Case MsgBox("Êtes-vous sûr de vouloir déplacer la ligne ?", vbYesNo, "Titre de la fenêtre")
        Case vbYes
            If Target.Count > 1 Or Target.Row < 4 Then Exit Sub
            
            x = Target.Row
        
            Set c = Range("A" & x & ":O" & x)
        
            Select Case Target.Column
                Case 1
                    adresse = [A65000].End(xlUp).Address(1, 1)
                    If Target.Address = adresse Then
                        Application.EnableEvents = False
                        c.Copy Target.Offset(1)
                        c.Offset(1).SpecialCells(xlCellTypeConstants).Clea rContents
                        Application.EnableEvents = True
                    End If
                Case 15
                    If LCase(Target) = "cloturé" Then
                        c.Copy Feuil1.Range("A65000").End(xlUp).Offset(1)
                        Rows(x).Delete
                    End If
            End Select
        Case vbNo
            Exit Sub
    End Select
    
End Sub