[wilfried_42]

re:

voici le code

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Dim drapeau As Boolean, i As Integer, ok As Boolean
    drapeau = False: ok = False
    If ActiveSheet.Name = "Config" Then
        Cancel = True
        If Sheets("Liste").Range("D10") > "" Then Sheets("Liste").Range("D10") = Sheets("Liste").Range("D10") & ";"
        For i = 2 To ActiveSheet.Range("IV" & Target.Row).End(xlToLeft).Column
            If i = 2 Then Sheets("Liste").Range("D10") = Sheets("Liste").Range("D10") & Target & "("
            If ActiveSheet.Cells(Target.Row, i) > "" Then
               If ok = True Then Sheets("Liste").Range("D10") = Sheets("Liste").Range("D10") & ";"
               ok = True
               Sheets("Liste").Range("D10") = Sheets("Liste").Range("D10") & ActiveSheet.Cells(Target.Row, i)
            End If
        Next i
        Sheets("Liste").Range("D10") = Sheets("Liste").Range("D10") & ")"
    End If
End Sub

Bonne semaine