If cel.Font.ColorIndex = 3 Then 'rouge
Set dercel = Sheets("FacturePay?").Range("A65536").End(xlUp).Offset(1)
cel.EntireRow.Cut dercel 'coupe et colle la ligne
dercel.Validation.Delete 'supprime la liste de validation en colonnes A
dercel.Offset(0, 1) = dercel.Offset(0, 1).Value 'supprime la formule en colonne B
dercel.Offset(0, 2).Validation.Delete 'supprime la liste de validation en colonnes C
dercel.Offset(0, 6) = dercel.Offset(0, 6).Value 'supprime la formule en colonne G
End If