besoins de stoker plus de 350 image(icon)

Private Sub UserForm_Activate()
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        On Error Resume Next
        Me.ImageList1.ListImages.Add , "A" & i - 1, Application.CommandBars.GetImageMso(Cells(i, 1).Text, 40, 40)
        If Err.Number > 0 Then
            Err.Clear
            Me.ImageList1.ListImages.Add , "A" & i - 1, Application.CommandBars.GetImageMso(Cells(2, 1).Text, 40, 40)
        End If

    Next

    With ListView1
        .SmallIcons = ImageList1    'association de la liste d image a la listview

        With .ColumnHeaders: .Clear: .Add , , "icon", 150: End With

        For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row - 1
            .ListItems.Add , , Cells(i + 1, 1).Text
            .ListItems(i).SmallIcon = "A" & i
        Next

        .View = 3

    End With
End Sub

Private Sub Btx_Click(): GeticonExcelDialog.Caption = "liste des noms commencants par " & Btx.Caption: remplissage Btx.Caption: End Sub    'event for All  button lettre

Sub test()
Dim objClipBoard As MSForms.DataObject
Dim IconName As String

Set objClipBoard = New MSForms.DataObject
IconName = GeticonExcelDialog.GetIconMsoName
MsgBox IconName & vbCrLf & "Ready in ClipBoard"

With objClipBoard
.SetText CStr(IconName)
.PutInClipboard
End With

Range("H1") = IconName 'Là j'ai bien le nom !
End Sub