Re,
Remplace cette ligne dans la macro
If Ws.Cells(i, 1) <> "" And Ws.Cells(i, Col).Interior.Color <> RGB(255, 255, 255) Then 'si la cellue colonne "I" n'est pas vide
par
If Ws.Cells(i, 1) <> "" And Ws.Cells(i, Col).Interior.Color = RGB(255, 255, 0) Then 'si la cellue colonne "I" n'est pas vide