Sub compilation()
'volontairement écrit comme une automatisation de ce qui se fait à la main
Range("G:M").ClearContents
'dernière ligne liste
derligne = Range("A" & Rows.Count).End(xlUp).Row
'intitulés
Range("G1").Value = "Bleu"
Range("H1").Value = "Rouge"
Range("I1").Value = "Vert"
Range("J1").Value = "Jaune"
'formules colonnes G à J tirées jusqu'à la dernière ligne
Range("G2:J" & derligne).FormulaR1C1 = _
"=IF((COUNTIF(R1C1:RC1,RC1)=1)*SUMPRODUCT((RC1=R2C1:R" & derligne & "C1)*(R1C=R2C6:R" & derligne & "C6))=1,""X"","""")"
Range("K2:K" & derligne).FormulaR1C1 = "=(COUNTIF(R1C1:RC1,RC1)=1)"
'suppression des lignes doublons
For i = derligne To 2 Step -1
If UCase(Range("K" & i).Value) = "FAUX" Then
Rows(i).Delete
End If
Next
'remplacement des formules par les valeurs
Columns("G:J").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
'suppression des colonnes intermédiaires
Columns("F:F").Select
Selection.Delete Shift:=xlToLeft
Columns("J:J").Select
Selection.Delete Shift:=xlToLeft
Range("J1").Select
End Sub