Et la suite :
Code:
For Each celD In Range("F130:F137")
If celD <> "" And celD <> 0 Then
comptD = comptD + 1
End If
Next
If comptD > 0 Then
If Range("F138:F147").EntireRow.Hidden = True Then
Range("F138:F147").EntireRow.Hidden = False
End If
Else
If Range("F138:F147").EntireRow.Hidden = False Then
Range("F138:F147").EntireRow.Hidden = True
End If
End If
For Each celE In Range("F120:F127")
If celE <> "" And celE <> 0 Then
comptE = comptE + 1
End If
Next
If comptE > 0 Then
If Range("F128:F137").EntireRow.Hidden = True Then
Range("F128:F137").EntireRow.Hidden = False
End If
Else
If Range("F128:F137").EntireRow.Hidden = False Then
Range("F128:F137").EntireRow.Hidden = True
End If
End If
For Each celF In Range("F110:F117")
If celF <> "" And celF <> 0 Then
comptF = comptF + 1
End If
Next
If comptF > 0 Then
If Range("F118:F127").EntireRow.Hidden = True Then
Range("F118:F127").EntireRow.Hidden = False
End If
Else
If Range("F118:F127").EntireRow.Hidden = False Then
Range("F118:F127").EntireRow.Hidden = True
End If
End If
For Each celG In Range("F177:F186")
If celG <> "" And celG <> 0 Then
comptG = comptG + 1
End If
Next
If comptG > 0 Then
If Range("F187:F198").EntireRow.Hidden = True Then
Range("F187:F198").EntireRow.Hidden = False
End If
Else
If Range("F187:F198").EntireRow.Hidden = False Then
Range("F187:F198").EntireRow.Hidden = True
End If
End If
For Each celH In Range("F165:F174")
If celH <> "" And celH <> 0 Then
comptH = comptH + 1
End If
Next
If comptH > 0 Then
If Range("F175:F186").EntireRow.Hidden = True Then
Range("F175:F186").EntireRow.Hidden = False
End If
Else
If Range("F175:F186").EntireRow.Hidden = False Then
Range("F175:F186").EntireRow.Hidden = True
End If
End If
For Each celI In Range("F153:F162")
If celI <> "" And celI <> 0 Then
comptI = comptI + 1
End If
Next
If comptI > 0 Then
If Range("F163:F174").EntireRow.Hidden = True Then
Range("F163:F174").EntireRow.Hidden = False
End If
Else
If Range("F163:F174").EntireRow.Hidden = False Then
Range("F163:F174").EntireRow.Hidden = True
End If
End If
If Worksheets("Fiche de renseignements").Range("F207") <> 0 And Worksheets("Fiche de renseignements").Range("F207") <> "" Then
If Range("F232:F235").EntireRow.Hidden = True Then
Range("F232:F235").EntireRow.Hidden = False
End If
ElseIf Range("F232:F259").EntireRow.Hidden = False Then
Range("F232:F259").EntireRow.Hidden = True
End If
If Worksheets("Fiche de renseignements").Range("F234") <> 0 And Worksheets("Fiche de renseignements").Range("F234") <> "" Then
If Range("F259:F262").EntireRow.Hidden = True Then
Range("F259:F262").EntireRow.Hidden = False
End If
ElseIf Range("F259:F286").EntireRow.Hidden = False Then
Range("F259:F286").EntireRow.Hidden = True
End If
If Worksheets("Fiche de renseignements").Range("F261") <> 0 And Worksheets("Fiche de renseignements").Range("F234") <> "" Then
If Range("F286:F289").EntireRow.Hidden = True Then
Range("F286:F289").EntireRow.Hidden = False
End If
ElseIf Range("F286:F313").EntireRow.Hidden = False Then
Range("F286:F313").EntireRow.Hidden = True
End If
If Worksheets("Fiche de renseignements").Range("F288") <> 0 And Worksheets("Fiche de renseignements").Range("F234") <> "" Then
If Range("F313:F316").EntireRow.Hidden = True Then
Range("F313:F316").EntireRow.Hidden = False
End If
ElseIf Range("F313:F339").EntireRow.Hidden = False Then
Range("F313:F339").EntireRow.Hidden = True
End If
With Sheets("Fiche de renseignements")
Set Plage = .Range("B209:B" & .Range("B231").Row)
For Each CellConc In Plage
TempConcatenation = CellConc & CellConc.Offset(0, 3)
If TempConcatenation = "" Then
If .Rows(CellConc.Row).Hidden = False Then
.Rows(CellConc.Row).Hidden = True
End If
ElseIf .Rows(CellConc.Row).Hidden = True Then
.Rows(CellConc.Row).Hidden = False
End If
Next
End With
With Sheets("Fiche de renseignements")
Set Plage2 = .Range("B236:B" & .Range("B258").Row)
For Each CellConc2 In Plage2
TempConcatenation2 = CellConc2 & CellConc2.Offset(0, 3)
If TempConcatenation2 = "" Then
If .Rows(CellConc2.Row).Hidden = False Then
.Rows(CellConc2.Row).Hidden = True
End If
ElseIf .Rows(CellConc2.Row).Hidden = True Then
.Rows(CellConc2.Row).Hidden = False
End If
Next
End With
With Sheets("Fiche de renseignements")
Set Plage3 = .Range("B263:B" & .Range("B285").Row)
For Each CellConc3 In Plage3
TempConcatenation3 = CellConc3 & CellConc3.Offset(0, 3)
If TempConcatenation3 = "" Then
If .Rows(CellConc3.Row).Hidden = False Then
.Rows(CellConc3.Row).Hidden = True
End If
ElseIf .Rows(CellConc3.Row).Hidden = True Then
.Rows(CellConc3.Row).Hidden = False
End If
Next
End With
With Sheets("Fiche de renseignements")
Set Plage4 = .Range("B290:B" & .Range("B312").Row)
For Each CellConc4 In Plage4
TempConcatenation4 = CellConc4 & CellConc4.Offset(0, 3)
If TempConcatenation4 = "" Then
If .Rows(CellConc4.Row).Hidden = False Then
.Rows(CellConc4.Row).Hidden = True
End If
ElseIf .Rows(CellConc4.Row).Hidden = True Then
.Rows(CellConc4.Row).Hidden = False
End If
Next
End With
With Sheets("Fiche de renseignements")
Set Plage5 = .Range("B317:B" & .Range("B339").Row)
For Each CellConc5 In Plage5
TempConcatenation5 = CellConc5 & CellConc5.Offset(0, 3)
If TempConcatenation5 = "" Then
If .Rows(CellConc5.Row).Hidden = False Then
.Rows(CellConc5.Row).Hidden = True
End If
ElseIf .Rows(CellConc5.Row).Hidden = True Then
.Rows(CellConc5.Row).Hidden = False
End If
Next
End With
End Sub