Sub MAJDevisRegards()
LigneDebut = 13
LigneFin = 121
NumeroColonne = 8
For i = LigneDebut To LigneFin
If Cells(i, NumeroColonne).Value > [G3] Then
Cells(i, NumeroColonne).EntireRow.Hidden = True
Else
Cells(i, NumeroColonne).EntireRow.Hidden = False
End If
Next i
Worksheets("chiffrage").Select
LigneDebut = 4
LigneFin = 61
NumeroColonne = 11
For i = LigneDebut To LigneFin
If Cells(i, NumeroColonne).Value > [K2] Then
Cells(i, NumeroColonne).EntireRow.Hidden = True
Else
Cells(i, NumeroColonne).EntireRow.Hidden = False
End If
Next i
Worksheets("lestage").Select
ColoneDebut = 2
ColoneFin = 19
NumeroLigne = 45
For i = ColoneDebut To ColoneFin
If Cells(i, NumeroLigne).Value > [U45] Then
Cells(i, NumeroLigne).EntireColumn.Hidden = True
Else
Cells(i, NumeroLigne).EntireColumn.Hidden = False
End If
Next i
Worksheets("devis model").Select
LigneDebut = 18
LigneFin = 87
NumeroColonne = 9
For i = LigneDebut To LigneFin
If Cells(i, NumeroColonne).Value > [I1] Then
Cells(i, NumeroColonne).EntireRow.Hidden = True
Else
Cells(i, NumeroColonne).EntireRow.Hidden = False
End If
Next i
End Sub