I have solved it by myself:

[VBA]
Sub test()
Dim ts As tasks
Dim T As Task
Set ts = ActiveProject.tasks
For Each T In ts
If Not T Is Nothing Then
T.Finish1 = T.Finish
SelectRow T.UniqueID, RowRelative:=False
SelectTaskField Row:=T.UniqueID, RowRelative:=False, Column:="start"
Font Color:=pjBlue, Bold:=True, Italic:=True
End If
Next T
End Sub
[/VBA]

Nico