[COLOR=blue]Private Sub[/COLOR] CommandButton1_Click()
Application.ScreenUpdating = [COLOR=blue]False[/COLOR]
w = 4
[COLOR=blue]Set[/COLOR] mondico = CreateObject("Scripting.Dictionary")
Derligne = [a65000].End(xlUp).Row
Dercol = Cells(2, Application.Columns.Count).End(xlToLeft).Column - 2
[COLOR=blue]For[/COLOR] i = 4 [COLOR=blue]To[/COLOR] 99 [COLOR=blue]Step[/COLOR] 19
Sheets("demande interim").Rows(i).ClearContents
[COLOR=blue]Next[/COLOR] i
[COLOR=blue]For[/COLOR] j = 5 [COLOR=blue]To[/COLOR] Dercol [COLOR=blue]Step[/COLOR] 7
[COLOR=blue]Set[/COLOR] plg = Range(Cells(2, j), Cells(Derligne, j))
[COLOR=blue]For Each[/COLOR] c [COLOR=blue]In[/COLOR] plg
[COLOR=blue]If[/COLOR] c.Font.ColorIndex <> -4105 [COLOR=blue]And[/COLOR] c.Value <> "" [COLOR=blue]Then[/COLOR] mondico.Item(c.Font.ColorIndex) = c.Font.ColorIndex
[COLOR=blue]Next[/COLOR] c
Temp = mondico.Items
[COLOR=blue]For[/COLOR] k = 0 [COLOR=blue]To UBound[/COLOR](Temp)
z = 0
[COLOR=blue]ReDim[/COLOR] Temp2(0 [COLOR=blue]To[/COLOR] Derligne, 1 [COLOR=blue]To[/COLOR] 3)
[COLOR=blue]For Each[/COLOR] c [COLOR=blue]In[/COLOR] plg
[COLOR=blue]If[/COLOR] c.Font.ColorIndex = Temp(k) [COLOR=blue]And[/COLOR] c.Value <> "" [COLOR=blue]Then[/COLOR]
Temp2(z, 1) = Cells(1, j - 4).Value
Temp2(z, 2) = c.Value
Temp2(z, 3) = c.Offset(0, 1).Value
z = z + 1
[COLOR=blue]End If[/COLOR]
[COLOR=blue]Next[/COLOR] c
[COLOR=blue]With[/COLOR] Sheets("demande interim")
[COLOR=blue]For[/COLOR] i = [COLOR=blue]LBound[/COLOR](Temp2) [COLOR=blue]To UBound[/COLOR](Temp2)
[COLOR=blue]If[/COLOR] Temp2(i, 3) = "" [COLOR=blue]Then[/COLOR]
.Cells(w, 1) = Temp2(i, 2)
[COLOR=blue]Else[/COLOR]
.Cells(w, 5) = Temp2(i, 2)
.Cells(w, 6) = "En " & Temp2(i, 3)
.Cells(w, 3) = "en remplacement de "
[COLOR=blue]End If[/COLOR]
[COLOR=blue]If[/COLOR] .Cells(w, 1) <> "" [COLOR=blue]And[/COLOR] .Cells(w, 5) <> "" [COLOR=blue]Then[/COLOR] w = w + 19
[COLOR=blue]Next[/COLOR] i
[COLOR=blue]End With[/COLOR]
[COLOR=blue]Next[/COLOR] k
mondico.RemoveAll
[COLOR=blue]Next[/COLOR] j
Application.ScreenUpdating = [COLOR=blue]True[/COLOR]
[COLOR=blue]End Sub[/COLOR]