Dim someXml2 = New XElement("root", _
                            From item In liste _
                            Select New XElement("item", _
                                                If(item.ID IsNot Nothing, New _
                                                XAttribute("id", _
                                                item.ID.Value), Nothing), _
                                                New XElement("name", _
                                                item.Name)))

Ralf