Sub remplir()
Dim i As Integer
Dim shp As Shape
With Feuil1
For i = 2 To .Range("j" & Rows.Count).End(xlUp).Row
If .Cells(i, 1).Interior.ColorIndex = 3 And .Cells(i, 1) <> "" Then
On Error Resume Next
Set shp = .Shapes(.Cells(i, 1))
If Not shp Is Nothing Then shp.OLEFormat.Object.Text = Format(.Cells(i, 10), "0.00")
End If
Next
End With
End Sub