Mot de passe demandé en quittant application

Function melange(ByRef s_tr$) As String
Dim temp$
Dim i As Long, a As Long
For i = 1 To Len(s_tr)
    a = Int(Rnd() * Len(s_tr)) + 1: temp = Mid(s_tr, i, 1)
    Mid(s_tr, i, 1) = Mid(s_tr, a, 1): Mid(s_tr, a, 1) = temp
Next i
melange = s_tr
End Function

Sub Je_Melange_Mon_CODEVBA()
Dim i&
For i = 1 To 17231
If Not IsEmpty(Cells(i, 1)) Then
Cells(i, 2) = melange(Cells(i, 1).Text)
End If
Next
End Sub

    Dim Conn As ADODB.Connection
    'Dim rsT As ADODB.Recordset
    Dim Fichier As String, Direction As String, rSQL As String


    'Données de ce fichier
    Direction = ThisWorkbook.Path
    Fichier = ThisWorkbook.Name


    'Ouverture de la connection
    Set Conn = New ADODB.Connection
    With Conn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & Direction & "\" & Fichier & _
    ";Extended Properties=Excel 8.0;"
    .Open
    End With
                  
    'Déclaration de la requête SQL
    rSQL = "SELECT * FROM [Commandes$]"
    
    
    'Execution de la recherche SQL
    Set Rst = New ADODB.Recordset
    With Rst
    .ActiveConnection = Conn
    .Open rSQL, , adOpenKeyset, adLockOptimistic, adCmdTableDirect
    End With

    'Ferme la connexion
    Rst.Close
    Set Rst = Nothing