Sub Compléter_MFC()
Dim c As Range
For Each c In [D:D].SpecialCells(xlCellTypeConstants)
If c.Interior.ColorIndex <> xlNone Then
If Application.CountA(c(1, 2).Resize(, 3)) = 0 Then
c(1, 2) = c * 2
c(1, 3) = c * 3
c(1, 4) = c * 4
Exit For
End If
End If
Next
End Sub