Sub SupprLigne()
Dim i As Byte, Valeur As String
Dim Msg As String, Style, Title As String, MyValue As String
' Définition de la ligne à supprimer
Valeur = InputBox("Tapez le nombre définissant la ligne à supprimer, merci ! ", "SUPPRESSION DE LIGNE")
If Valeur = "" Then Exit Sub
' Texte du message de vérification avant validation
Msg = "Voulez-vous vraiment supprimer la ligne " & Valeur & " ?"
Style = vbOKCancel + vbCritical + vbDefaultButton2 ' Définit les boutons et l'information.
Title = "VERIFICATION AVANT SUPPRESSION !" ' Définit le titre.
MyValue = MsgBox(Msg, Style, Title) ' Message de vérification
If MyValue = 2 Then Exit Sub ' Annulation
' Suppression de la ligne
[COLOR="Red"][B]Sheets("Feuil1").Activate[/B][/COLOR]
With Sheets("Feuil1")
Rows(Valeur).Delete
End With
End Sub