Microsoft 365 Petit souci lors de la création de dossier par Excel

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Chemin As String
    Chemin = ActiveWorkbook.Path & "/" & Target.Value
    If Dir(Chemin, vbDirectory) = "" Then
        MkDir Chemin
        MsgBox ("Dossier créé")
    Else
        MsgBox "Le dossier " & Target.Value & " existe dèjà"
    End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim Chemin As String
    
    Cancel = True
    
    If Target.Value = "" Then Exit Sub
    
    Chemin = ActiveWorkbook.Path & "\" & Target.Value
    
    If Dir(Chemin, vbDirectory) = "" Then
        MkDir Chemin
        MsgBox "Dossier créé"
    Else
        MsgBox "Le dossier " & Target.Value & " existe déjà"
    End If

End Sub