Réponse acceptée !
Bonjour,

Essaies ceci

'Dans un module
Sub ChargeListe(ByVal ListeSource As ListBox, ListeDestination As ListBox)
        Dim T As Long
        ListeDestination.Clear
        For T = 0 To ListeSource.ListCount - 1
                If ListeSource.Selected(T) = True Then
                        ListeDestination.AddItem Trim(.List(T))
                End If
        Next T
End Sub

'Derrière ton boutton

Call ChargeListe(NomDeLaListeBoxSource,NomDeLaListeBoxDestination)

Ricks27