copie feuille

Sub NouvelleFeuille()
Application.ScreenUpdating = False
NumFeuille = Mid(Sheets(Sheets.Count).Name, 3)
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "S " & NumFeuille + 1
With ActiveSheet
  For Each Cel In .Range("D5:H26")
    [COLOR="RoyalBlue"][B]If Cel.Interior.ColorIndex <> 5 Or Cel.Interior.ColorIndex <> 6 Then[/B][/COLOR]
      .Range(Cel.Address) = ""
      .Range(Cel.Address).Interior.ColorIndex = xlAutomatic
    End If
  Next
End With
Application.ScreenUpdating = True
End Sub

For Each Cel In .Range("D5:H26")
    [COLOR="RoyalBlue"]If Not Cel.Interior.ColorIndex = 5 And Not Cel.Interior.ColorIndex = 6 Then[/COLOR]
      .Range(Cel.Address) = ""
      .Range(Cel.Address).Interior.ColorIndex = xlAutomatic
    End If
  Next