[COLOR=blue]Sub[/COLOR] Ajout()
Application.ScreenUpdating = [COLOR=blue]False[/COLOR]
[COLOR=blue]With[/COLOR] Sheets("Avant")
DrLgn = .Cells(65000, 1).End(xlUp).Row
[COLOR=blue]For Each[/COLOR] c [COLOR=blue]In[/COLOR] .Range("C3:J" & DrLgn & ",Q2:Q" & DrLgn)
[COLOR=blue]If[/COLOR] .Cells(c.Row, 2) <> "" [COLOR=blue]And[/COLOR] c.Value = "" [COLOR=blue]Then[/COLOR] c.Value = c.Offset(-1, 0).Value: c.Font.ColorIndex = 5
[COLOR=blue]Next[/COLOR] c
[COLOR=blue]End With[/COLOR]
Application.ScreenUpdating = [COLOR=blue]True[/COLOR]
[COLOR=blue]End Sub[/COLOR]