Sheets(NombreDeFeuille + 1).Activate
LigneFeuil1 = 1
LigneFeuil2 = 0
With Sheets(1)
For LigneFeuil1 = 1 To 792
If ((.Cells(LigneFeuil1, 9).Value = "*") Or (.Cells(LigneFeuil1, 7).Interior.ColorIndex = 34) Or ((.Cells(LigneFeuil1, 5) > 0 And .Cells(LigneFeuil1, 7) > 0))) Then
Cells(LigneFeuil1, 1).EntireRow.Copy
LigneFeuil2 = LigneFeuil2 + 1
Sheets(NombreDeFeuille + 1).Cells(LigneFeuil2, 1).Insert shift:=xlDown
'Sheets(NombreDeFeuille + 1).Cells(LigneFeuil2, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets(NombreDeFeuille + 1).Cells(LigneFeuil2, 1).Copy
End If
Next
LigneFeuil1 = 1
LigneFeuil2 = 0
For LigneFeuil1 = 1 To 792
If ((.Cells(LigneFeuil1, 9).Value = "*") Or (.Cells(LigneFeuil1, 7).Interior.ColorIndex = 34) Or ((.Cells(LigneFeuil1, 5) > 0 And .Cells(LigneFeuil1, 7) > 0))) Then
Cells(LigneFeuil1, 7).Copy
LigneFeuil2 = LigneFeuil2 + 1
Sheets(NombreDeFeuille + 1).Cells(LigneFeuil2, 7).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Next
End With