Private Sub Worksheet_Activate()
UsedRange.Delete
With ThisWorkbook.Sheets("Feuil1")
.Rows(1).Copy Range("A1")
.Range("A2:J" & .Range("A2").End(xlDown).Row).Sort key1:=.Range("F2"), order1:=xlAscending
For i = 2 To .Range("A2").End(xlDown).Row - 1
If (.Range("F" & i).Text = .Range("F" & i + 1).Text) And _
.Range("C" & i).Text = .Range("C" & i + 1).Text Then
.Rows(i).Copy Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
.Rows(i + 1).Copy Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End If
Next i
End With
End Sub