Afficher une image en fond d'ecran de bureau avec une macro

Option Explicit
Private Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" (ByVal uAction As Long, _
ByVal uParam As Long, ByVal lpvParam As Any, _
ByVal fuWinIni As Long) As Long
Sub ChangePapierPeint(Fichier As String, Registre As Boolean)
Dim x
x = SystemParametersInfo(20, 0, Fichier, Abs(Registre))
End Sub
Public Sub Test()
ChangePapierPeint "C:\Users\Public\Pictures\Pictures\monimage.bmp", False 'chemin de l'image (bmp uniquement) à adapter
End Sub
'https://www.generation-nt.com/reponses/comment-changer-le-fond-ecran-xp-en-vba-dans-une-macro-word-entraide-330866.html
'et pour lancer à l'aide d'un bouton
Private Sub CommandButton1_Click()
Test
End Sub