Bonjour,
Un test non optimisé mais fonctionnel :
Sub suppr_ligne_jaune()
Dim WS As Worksheet, LR%, WB As Workbook, L%
For Each WB In Workbooks
For Each WS In Workbooks(WB.Name).Worksheets
LR = Workbooks(WB.Name).Worksheets(WS.Name).UsedRange.Rows.Count
For L = LR To 2 Step -1 'Pour chaque ligne avec un pas de -1
If Workbooks(WB.Name).Worksheets(WS.Name).Cells(L, 1).Interior.ColorIndex = 6 Then Workbooks(WB.Name).Worksheets(WS.Name).Cells(L, 1).EntireRow.Delete
Next L
Next WS
Next WB
End Sub
On peut également définir LR comme étant :
LR = Workbooks(WB.Name).Worksheets(WS.Name).Cells(Rows.Count,1).End(xlUp).Row
Dès lors qu'il n'y a pas de cellule vide sur la dernière ligne à traiter en colonne 1. Cette méthode est préférée car je trouve, plus fiable.
Cdlt,