J'aimerais que sur la feuille " CP entretien et réparation " toutes les lignes non grise entre la ligne 9 et 244 se transporte sur la feuille appelé "facture manquante ".
Sub t()
With Sheets(2)
For i = 9 To 244
If .Cells(i, 1).Interior.ColorIndex <> 15 And .Cells(i, 1) <> "" Then
.Rows(i).Copy Sheets(1).Range("a65000").End(xlUp).Offset(1, 0)
End If
Next
End With
End Sub