#If VBA7 Then ' Si votre ordinateur a une architecture à 64 bits :
Private Declare PtrSafe Sub MoveMemory Lib "kernel32.dll" Alias "RtlMoveMemory" _
(ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
#Else ' Dans le cas contraire, l'instruction qui précède est quand même signalée en erreur car le mot clé PtrSafe donnerait lieu
' à "Erreur de compilation : Attendu : Sub ou Fonction". Mais çe n'est pas gênant, car lors de la compilation effective,
' c'est l'instruction ci dessous qui est appliquée et non celle en erreur :
Private Declare Sub MoveMemory Lib "kernel32.dll" Alias "RtlMoveMemory" _
(ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
#End If