Connection a un SFTP

Protected Sub WinScpSFTPupload(ByVal fileToBeUploaded As String, uploadedFilename As String)
    Try
        Dim sessionOptions As New SessionOptions
        With sessionOptions
            .Protocol = Protocol.Sftp
            .HostName = C_Parametre.AdresseIPSSH
            .PortNumber = C_Parametre.PortSSH
            .UserName = C_Parametre.UtilisateurSSH
            .SshPrivateKey = "D:\CLIENTS\2024\ADSL\PrivateKeyAgicap.ppk" 'C_Parametre.ClePriveSSH
        End With
        Using session As New Session
            session.Open(sessionOptions)
            session.PutFiles(fileToBeUploaded, uploadedFilename).Check()
        End Using
    Catch ex As Exception
        MsgBox(ex.Message & Chr(13) & Chr(10) & uploadedFilename)
    End Try
End Sub ' Sub to WinSCP SFTP File