Sub copie_colle_sansdoublons()
'copie les unités dans la feuille matrice
Sheets("Matrice").Select
Range("E6:E13,E16:E32").Select
Selection.Copy
'colle les valeurs unités dans la feuille données
Sheets("données").Select
Range("M2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'extrait les doublons
Columns("M:M").Select
[COLOR="Red"]Range("M2:M27").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"O2"), Unique:=True[/COLOR]
'retourne se ranger en a1 de la feuille sommaire
Sheets("Sommaire").Select
Application.CutCopyMode = False
Range("A1").Select
End Sub