macro suppression lignes

Sub SupLignes()
Dim lig As Long, w As Worksheet
lig = Application.InputBox("Numéro de la 1ère ligne :", "Supprimer les lignes", , , , , , 1)
If lig > 0 And lig < 65536 Then
  For Each w In Worksheets
    w.Rows(lig & ":65536").Delete
  Next
End If
End Sub

Sub SupLignes()
Dim lig, w As Worksheet
On Error Resume Next
1 lig = InputBox("Numero de la 1ère ligne :", "Supprimer les lignes")
For Each w In Worksheets
  w.Rows(Int(lig) & ":65536").Delete
Next
If lig <> "" And Err Then Err = 0: GoTo 1
End Sub

Sub SupLignes()
Dim lig, i As Integer
On Error Resume Next
1 lig = InputBox("Numero de la 1ère ligne :", "Supprimer les lignes")
For i = 2 To Worksheets.Count
  Worksheets(i).Rows(Int(lig) & ":65536").Delete
Next
If lig <> "" And Err Then Err = 0: GoTo 1
End Sub

Sub SupLignes()
Dim lig, w As Worksheet
On Error Resume Next
1 lig = InputBox("Numero de la 1ère ligne :", "Supprimer les lignes")
For Each w In Worksheets
  If w.Name <> "TOTO" Then w.Rows(Int(lig) & ":65536").Delete 'TOTO => nom de la feuille à éviter
Next
If lig <> "" And Err Then Err = 0: GoTo 1
End Sub

Sub SupLignes()
Dim lig, w As Worksheet
On Error Resume Next
1 lig = InputBox("Numero de la 1ère ligne :", "Supprimer les lignes")
For Each w In Worksheets
  If w.[COLOR="Red"]CodeName[/COLOR] <> "Feuil1" Then w.Rows(Int(lig) & ":65536").Delete
Next
If lig <> "" And Err Then Err = 0: GoTo 1
End Sub