Option Explicit
Sub Lignes_masquer()
Dim i As Long
For i = 2 To 100
With Sheets("Feuil1")
If .Range("A" & i).Value = "DERIVE :" And .Range("A" & i + 1).Value = "" _
Then .Rows(i).Resize(3).Rows.Hidden = True
If .Range("A" & i).Value = "Valeur :" And .Range("A" & i + 1).Value = "" _
Then .Rows(i).Resize(3).Rows.Hidden = True
End With
Next i
End Sub