Sub Supprimer()
'Supprime un enregistrement
Dim msg As String, title As String, Response As String
Dim style As Integer
Application.ScreenUpdating = False
msg = "Voulez-vous supprimer les lignes sélectionnées ?"
style = vbYesNo + vbCritical + vbDefaultButton2
title = "Suppression de la ligne"
Response = MsgBox(msg, style, title)
If Response = vbYes Then
Selection.Range("O1:Z" & Selection.Rows.Count).ClearContents
End If
End Sub