Réponse acceptée !
Bonjour à tous
Bon, je vois qu'il n'y a pas eu foule de réponse, alors je répond à ma question :

la solution pour extraire l'image, est de la convertir en un tableau de bytes

Public Function ImageToBytes(ByVal ResourceImage As Image) As Byte()
        If (ResourceImage IsNot Nothing) Then
            Dim bmp As New Bitmap(ResourceImage)
            Dim ms As New System.IO.MemoryStream()
            bmp.Save(ms, System.Drawing.Imaging.ImageFormat.Bmp)
            Dim buff As Byte() = ms.ToArray()
            ms.Close()
            ms.Dispose()
            Return buff
        Else
            Return Nothing
        End If
    End Function

ensuite, j'extrais ma resource :
Image est le nom de ma resource
Destination est le chemin du fichier de destination

If not system.io.file.exists(Destination) then  'on verifie que le fichier n'exite pas
Try
My.Computer.FileSystem.WriteAllBytes(Destination, ImageToBytes(My.Resources.Image), false) 'on extrait la resource Image
Catch ex As Exception

End Try

End if


@+
greg38bj