Sujet clos, j'ai réussi :
je vous donne l'astuce ci-besoin :
Sub PREPINFA35()
DebutLgn = 9
FinLgn = 26
Valeur = 13
For NbLgn = DebutLgn To FinLgn
If Cells(NbLgn, Valeur).Value < 35 Then
Cells(NbLgn, Valeur).EntireRow.Hidden = True
End If
Next NbLgn
DebutLgn = 52
FinLgn = 62
Valeur = 13
For NbLgn = DebutLgn To FinLgn
If Cells(NbLgn, Valeur).Value < 25 Then
Cells(NbLgn, Valeur).EntireRow.Hidden = True
End If
Next NbLgn
DebutLgn = 69
FinLgn = 79
Valeur = 13
For NbLgn = DebutLgn To FinLgn
If Cells(NbLgn, Valeur).Value < 30 Then
Cells(NbLgn, Valeur).EntireRow.Hidden = True
End If
Next NbLgn
End Sub