Private Sub Worksheet_Change(ByVal Target As Range)
Dim CellConc As Range
Dim Plage As Range
Dim TempConcatenation As String
Dim CellConc2 As Range
Dim Plage2 As Range
Dim TempConcatenation2 As String
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 Plage
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
End Sub