[Cornelius]

It works perfectly…
it's great. Thank you Derek.
your code is bright.
Big Thanks.

Now I have to delete the notes, I will try to do it by myself.

tell front document of application "OmniOutliner Professional"
	repeat with MyRow in (every row whose note is not equal to "")
		set NoteValue to note of MyRow
		make new child at beginning of children of MyRow with properties {topic:NoteValue}
	end repeat
end tell


tell application "OmniOutliner Professional"
	set MyDoc to front document
	repeat with MyRow in every row of MyDoc
		if (length of (note of MyRow as string)) > 0 then
			delete note of MyRow
		end if
	end repeat
end tell

I do it this way in 2 times and it seems to work…
I try to put the delete command directly in the first loop but it gets errors…