Sub Extraction_doublon()
Dim nom As String
Sheets("EVOLUTION").[B6:CG5000].ClearContents 'efface
With Sheets("DATA")
Set dico = CreateObject("Scripting.Dictionary")
For Each c In .Range(.[J2], .[J65000].End(xlUp))
dico.Item(c.Value) = dico.Item(c.Value)
Next c
Sheets("EVOLUTION").[B6].Resize(dico.Count, 1) = Application.Transpose(dico.keys)
nom = [A6]
For k = 6 To [B65000].End(3).Row 'boucle sur col B de Evolution
metric = Cells(k, 2)
For lg = 2 To .[A65000].End(3).Row 'boucle sur Data
If .Cells(lg, 10) = metric Then
'boucle sur les 12 mois
For col = 3 To 80 Step 7
If .Cells(lg, 6) = nom And .Cells(lg, 9) = Cells(4, col) Then
If .Cells(lg, 25) = [C5] Then Cells(k, col) = 1 'on écrit 1
If .Cells(lg, 25) = [D5] Then Cells(k, col + 1) = 1
If Left(.Cells(lg, 11), 8) = "ROLLOVER" Then Cells(k, col + 2) = 1
If .Cells(lg, 20) = [F5] Then Cells(k, col + 3) = 1
If .Cells(lg, 20) = [G5] Then Cells(k, col + 4) = 1
If .Cells(lg, 20) = "" Then Cells(k, col + 5) = 1
End If
Next
End If
Next
Next
End With
End Sub