Création de dossier sur le bureau

Bonjour à tous,

Je suis très mauvais en excel!

Je traite une base de donnée;

je souhaiterai que lorsque nous double-cliquons dans une case de la colonne "D" un nouveau dossier se crée sur le bureau avec le nom du fichier.

Exemple: je double clique dans la case D3; un nouveau dossier "José idiot 21501" se crée sur mon bureau.

Sans abuser de la gentillesse de notre grande famille, pouvez vous m’expliquez pas à pas la manip, ou me renvoyer le fichier avec les modif! merci beaucoup

M.J.

Sub CreateDir(strPath As String)
    Dim elm As Variant
    Dim strCheckPath As String

    strCheckPath = ""
    For Each elm In Split(strPath, "\")
        strCheckPath = strCheckPath & elm & "\"
        If Len(Dir(strCheckPath, vbDirectory)) = 0 Then MkDir strCheckPath
    Next
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("D:D")) Is Nothing Then
        CreateDir Environ("UserProfile") & "\Desktop\" & Target.Offset(0, 1).Value
    End If
End Sub