Sub Demo_Obfuscator_video()
'-- Ceci est une macro de démonstration de JO-OBfuscator : www.joseouin.fr
'-- Déclaration des variables
Dim Message1 As String
Dim Message2 As String
Dim Titre As String
Dim MesON As Integer
Dim Kp As Integer
Dim Rep As Integer
'-- Fin de déclaration des variables

Message1 = "JO-OBfuscator" & vbCrLf & vbCrLf
Message2 = "Ceci est une démonstration de JO-OBfuscator." & vbCrLf & vbCrLf
'-- Remarque : vbCrLf est une constante VBA (Cr : Carriage return et Lf : Line feed)
Kp = Len(Message1)

-espace- If Kp = 17 Then
'-- On met la variable MesON à 1
-espace- -espace- MesON = 1
-espace- Else
'-- On met la variable MesON à 0
-espace--espace- MesON = 0
-espace- End If

'-- Contenu du message :
Titre = "JO-OBfuscator : Vidéo de démonstration"
Message = Message1
Message = Message & Message2
Message = Message & "Téléchargez la version originale sur www.joseouin.fr" & vbCrLf & vbCrLf
Message = Message & "Auteur : José OUIN - Site Internet : www.joseouin.fr"

'-- Affichage de la boîte si le classeur Excel n'est pas en lecture seule et si MesON = 1
-espace- If ThisWorkbook.ReadOnly = False And MesON = 1 Then
-espace- -espace- Rep = MsgBox(Message, vbInformation + vbOKOnly, Titre)
-espace- End If
'------
End Sub