Option Explicit
Sub Essai()
Dim dcl%, col%, dlg&, lig&
dcl = Cells(3, Columns.Count).End(1).Column: Application.ScreenUpdating = 0
dlg = Cells(Rows.Count, 3).End(3).Row: [H7].Resize(dlg - 6).ClearContents
For lig = 7 To dlg
For col = dcl To 10 Step -1
If Cells(lig, col).Interior.Color = 49407 Then
Cells(lig, 8) = Cells(3, col): Exit For
End If
Next col
Next lig
End Sub