Option Explicit
Sub efface_ligne()
'objet.méthode paramètre 1 = valeur 1, paramètre 2 = valeur 2
'ou
'object.méthode (paramètre)
Dim ligne As Integer
Dim confirme As String
ligne = ActiveCell.Row
Rows(ligne).Select
confirme = MsgBox("je vais supprimer la ligne " & ligne & " ?", vbYesNo, "Attention")
Select Case confirme
Case vbYes
Selection.Delete Shift:=xlUp
Case vbNo
Exit Sub
End Select
End Sub