En effet, indépendamment de la couleur (partons sur l'autre tableau et donc la couleur 24)
J'ai trouvé un code qui supprime toutes les cellules d'une couleurs, je voudrais pouvoir supprimer les 7 lignes qui suivent la cellule supprimé, je ne sais pas si c'est possible :
Voici mon code
Sub deleterow()
Dim xRg As Range, rgDel As Range
For Each xRg In ThisWorkbook.ActiveSheet.Range("B2:B1000")
If xRg.Interior.ColorIndex = 3 Then
If rgDel Is Nothing Then
Set rgDel = xRg
Else
Set rgDel = Union(rgDel, xRg)
End If
End If
Next xRg
If Not rgDel Is Nothing Then rgDel.EntireRow.Delete
End Sub
Pensez vous avoir une solution ?