Sub MontreJaune()
Dim L, C, p, DL, DC, T0
Application.ScreenUpdating = False
Sheets(1).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Jaune"
DL = 1 + Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
DC = 1 + Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, LookIn:=xlValues).Column
Jaune = RGB(255, 255, 0)
For L = 1 To DL
Couleur = 0
For C = 1 To DC
If Cells(L, C).Interior.Color = Jaune Then Couleur = 1
Next C
Cells(L, "P") = Couleur
Next L
With ActiveSheet.Range("P1:P" & DL).Resize(ActiveSheet.UsedRange.Count)
.AutoFilter Field:=1, Criteria1:="=0"
Set p = .SpecialCells(xlVisible)
.AutoFilter
End With
p.EntireRow.Delete shift:=xlUp
[P:P].ClearContents
ActiveWindow.ScrollRow = 1
[A1].Select
End Sub