ActiveSheet.Range("A" & Rep1 & ":A" & Rep2).EntireRow.Hidden = True
ActiveSheet.Range("A" & Rep1 & ":A" & Rep2).Delete
Sub Del_Ligne()
Dim Rep1, Rep2
' Déverrouillage de la feuille par un mot de passe "primes"
ActiveSheet.Unprotect
' Suppression des lignes en trop ...
Rep1 = Application.InputBox(Prompt:="Premier N° de ligne à masquer", Type:=1)
Rep2 = Application.InputBox(Prompt:="Dernier N° de ligne à masquer", Type:=1)
If Rep1 = False Or Rep2 = False Then Exit Sub
ActiveSheet.Range("A" & Rep1 & ":A" & Rep2).EntireRow.Delete
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowDeletingRows:=True
End Sub
Option Explicit
Sub test()
Dim Rep1 As Long, Rep2 As Long, i As Long
Rep1 = Application.InputBox(Prompt:="Premier N° de ligne à supprimer", Type:=1)
Rep2 = Application.InputBox(Prompt:="Dernier N° de ligne à supprimer", Type:=1)
For i = Rep2 To Rep1 Step -1
If Cells(i, 3).Value = 0 Or Cells(i, 3).Value = "" Then Cells(i, 3).EntireRow.Delete
Next i
End Sub
Dim Rep1, Rep2, aff
Rep1 = Application.InputBox(Prompt:="Premier N° de ligne à supprimer", Type:=1)
Rep2 = Application.InputBox(Prompt:="Dernier N° de ligne à supprimer", Type:=1)
Dim val
For Each val In Range("C" & Rep1 & ":C" & Rep2)
If val.Value = 0 Or val.Value = "" Then
Range("C" & val.Row).Select
Selection.EntireRow.Delete
' val = val - 1
Rep2 = Rep2 - 1
End If
Next