Private Sub CommandButton1_Click()
Dim Response, Ligne&
Application.ScreenUpdating = False
Response = MsgBox("Voulez-vous supprimer cet enregistrement ?", 276, "Séquence de Suppression")
If Response = vbYes Then
Ligne = Worksheets(1).Cells(Rows.Count, 1).End(3).Row
Worksheets("RS11bis).Rows(Ligne).Clear
End If
Me.Hide
End Sub