Sub EffacerLigne()
Dim Lig As Long
Lig = Application.InputBox("No de ligne à effacer", , , , , , , 1)
If Lig = 0 Then Exit Sub
If MsgBox("Voulez-vous vraiment effacer la ligne " & Lig & "?", vbYesNo, "Confirmation") = vbYes Then
Range("B" & Lig).Resize(1, 200).Clear 'efface 200 colonnes à partir de B
End If
End Sub