Sub Extractionlignesdoublons()
Dim i&, a&, b&, fin&, fin1&, aa As Variant, bb As Variant, cc As Variant
.....
......
If y = 1 Then Exit Sub
For i = 1 To y - 1
a = bb(7, i) + 1
Feuil1.Rows(a).Copy Sheets("Plus Récents").Range("A65536").End(xlUp).Offset(1, 0)
[COLOR=Blue][B] Sheets("Plus Récents").Range("A65536").End(xlUp).Offset(0, 9).Value = a[/B][/COLOR]
'For Each Row In Feuil1.Rows(a)
'RowIndex.Copy Sheets("Plus Récents").Range("A65536").End(xlUp).offset(1, 10)
'Next Row
Next i
y = 1
ReDim cc(8, y)
.....
........
Sheets.Add before:=Sheets(1)
ActiveSheet.Name = ("Autres")
If y = 1 Then Exit Sub
For i = 1 To y - 1
a = cc(7, i) + 1
Feuil1.Rows(a).Copy Sheets("Autres").Range("A65536").End(xlUp).Offset(1, 0)
[COLOR=Blue][B]Sheets("Autres").Range("A65536").End(xlUp).Offset(0, 9).Value = a[/B][/COLOR]
Next i
Call Ligneentête
Sheets("Plus Récents").Select
End Sub