Bonjour,
y'a t il une facon de parcourir chaque ligne et si on rencontre une case jaune on efface le contenu de la derniére case de cette ligne
j'ai commencé par ce code la mais il m'affiche aucune resultat
For r = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
Set MaPlage = Range("A:AO").Rows(e)
For Each c In MaPlage.Cells
If c.Interior.Color = vbYellow Then
ActiveSheet.Cells(r, 42).Clear
End If
Next c
Next r