Sub Test()
#If Win64 Then
Const CapacitéAdressage = 64
#Else
Const CapacitéAdressage = 32
#End If
MsgBox "Sur mon système à capacité d'adressage de " & CapacitéAdressage & " bits," _
& vbLf & "Application.hWnd est de type " & TypeName(Application.hWnd) & ".", vbInformation, "Test"
End Sub