For J = 2 To 500
If Sheets("Sheet1").Cells(J, 1) <> "" Then
If Sheets("Sheet1").Cells(J, 19) = "" Then
[COLOR="Red"]MaCellule[/COLOR].FormulaR1C1 = "=YEAR(RC[-1])"
Sheets("Sheet1").Cells(J, 15).Value = [COLOR="red"]MaCellule[/COLOR].Value
End If
End If
Next J