Sub IncrementationDoublons()
'detection de la dernière ligne du tableau de départ
DerniereLigne = Range("F" & Rows.Count).End(xlUp).Row
ActiveSheet.ListObjects("Tableau5").Resize Range("$A$2:$F$" & DerniereLigne)
'copie des codes du premier tableau5 dans la colonne Item du tableau8
Range("Tableau5[codes]").Copy Destination:=Range("Tableau8[Item]")
Application.CutCopyMode = False
'ActiveSheet.Range("Tableau8[Item]").RemoveDuplicates Columns:=1, Header:=xlYes
ActiveSheet.Range(Range("Item"), Range("Item").End(xlDown)).RemoveDuplicates Columns:=1, Header:=xlYes
End Sub