With Worksheets("Feuil1")
Set PlageStoxxTMI = .Range(.Cells(5, "J"), .Cells(.Rows.Count, "J").End(xlUp))
Set PlageStoxx600 = .Range(.Cells(5, "N"), .Cells(.Rows.Count, "N").End(xlUp))
End With
With Worksheets("tableau")
.Range("b3:d" & Rows.Count).Clear
.Range("h3:j" & Rows.Count).Clear
End With
L = 2: L1 = 2
For Each CellStoxxTMI In PlageStoxxTMI
If CellStoxxTMI.Value <= 600 Then
If CellStoxxTMI > 0 And CellStoxxTMI.Font.ColorIndex = 1 Then
For Each CellStoxx600 In PlageStoxx600
If CellStoxxTMI.Offset(0, -8).Value <> CellStoxx600.Value Then
L = L + 1
Feuil5.Range("B" & L).Value = CellStoxxTMI.Offset(0, -8).Value
Feuil5.Range("C" & L).Value = CellStoxxTMI.Offset(0, -7).Value
Feuil5.Range("D" & L).Value = CellStoxxTMI
End If
Next
End If
End If
Next
' With Worksheets("Tableau")
'Set NewTableau = .Range(.Cells(3, "B:D"), .Cells(.Rows.Count, "B:D").End(xlUp))
'End With
'NewTableau = Selection.RemoveDuplicates
For Each CellStoxxTMI In PlageStoxxTMI
If CellStoxxTMI.Value > 600 Then
If CellStoxxTMI.Font.ColorIndex = 5 Then
For Each CellStoxx600 In PlageStoxx600
If CellStoxxTMI.Offset(0, -8).Value = CellStoxx600.Value Then
L1 = L1 + 1
Feuil5.Range("H" & L1).Value = CellStoxxTMI.Offset(0, -8).Value
Feuil5.Range("I" & L1).Value = CellStoxxTMI.Offset(0, -7).Value
Feuil5.Range("J" & L1).Value = CellStoxxTMI
End If
Next CellStoxx600
End If
End If
Next
Feuil5.Columns("B:D").AutoFit
Feuil5.Columns("H:J").AutoFit
MsgBox "Durée : " & Format(Timer - t0, "0.00\ .sec.")
End Sub