Sheet11
==========================
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim folder As String, cellValue As String, Row As Integer
    Row = 2
    cellValue = ActiveCell.Value
    If Left(cellValue, Len(">>> ")) = ">>> " Then
        folder = Sheets("Listes").Range("SelectedListe").Value & Right(cellValue, Len(cellValue) - Len(">>> ")) & "\"
        ret = Run("CL_GetInfo", "doclib", folder)
        Sheets("Listes").Range("SelectedListe").Value = folder
        With Sheets("Listes_Detail")
            .Range("A2:D300").ClearContents
            .Range("A2:C300").Value = ret
            For i = 2 To 300
                If IsError(.Cells(i, 1).Value) Then Exit For
                If Left(.Cells(i, 2).Value, Len(folder)) = folder Then
                    If .Cells(i, 3).Value = 0 Then
                        .Cells(Row, 4).Value = Cells(i, 1).Value
                    Else
                        .Cells(Row, 4).Value = ">>> " & Cells(i, 1).Value
                    End If
                    Row = Row + 1
                End If
            Next i
            .Range("D2").Select
        End With
        Cancel = True
    Else
        Run "OpenParam_Click"
    End If
End Sub
============================
Module_Run
============================

Sub macro_Menu_List(MonNom As String, MonChoix As String, ListType As String)
    Dim Row As Integer
    Row = 2
    'Worksheets("Listes_detail").Unprotect
    Worksheets("Listes_detail").Select
    Sheets("Listes_Detail").Range("A2:D300").ClearContents
    Sheets("Listes_Detail").Range("R_Head").Value = MonChoix
    Sheets("Listes_Detail").Range("ListeName").Value = MonChoix

    If ListType = "L" Then MonNom = Sheets("CurrentView").Range("SharedLibrary").Value & Sheets("CurrentView").Range("ModelName").Value & "\" & MonNom & "\"
    If ListType = "P" Then MonNom = "P\" ' & MonNom & "\"

    ret = Run("CL_GetInfo", "doclib", MonNom)
    Sheets("Listes").Range("SelectedListe").Value = MonNom
    With Sheets("Listes_Detail")
        .Range("A2:C300").Value = ret
        For i = 2 To 300
            If IsError(.Cells(i, 1).Value) Then Exit For
            If Left(.Cells(i, 2).Value, Len(MonNom)) = MonNom Then
                If .Cells(i, 3).Value = 0 Then
                    .Cells(Row, 4).Value = .Cells(i, 1).Value
                Else
                    .Cells(Row, 4).Value = ">>> " & .Cells(i, 1).Value
                End If
                Row = Row + 1
            End If
        Next i
        .Range("D2").Select
    End With
    'Worksheets("Listes_detail").Protect
End Sub