Bonjour,
je souhaite supprimer les lignes ou leurs colonne A ont un fond blanc , j'ai essayé ce code mais sans résultat , apparemment il doit fonctionner ! je pense qu'il ya une erreur merci pour votre aide , voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub color()
 
Const PremLigne = 2
Const DerLigne = 1000
Const Colconcerner = 1
  For nuli = PremLigne To DerLigne
    If Cells(nuli, Colconcerner).Interior.ColorIndex = 2 Then
      Rows(nuli).Delete
    End If
  Next nuli
End Sub
Merci d'avance