Public Function UploadNom(ByVal File As FileUpload, ByVal Destination As String, ByVal Nom As String) As String
Dim NomFile As String = File.PostedFile.FileName
Dim NomFinal As String = Nom & System.IO.Path.GetExtension(NomFile)
File.PostedFile.SaveAs(Destination & NomFinal)
Return NomFinal
End Function