Trier listbox et colonne(feuille) selon critère

Private Sub btnListPrinters_Click()
 Dim Printers() As String
 Dim Printer As String
 Dim n As Long
 Dim Trié As Boolean, i As Integer

 Printers = GetPrinterFullNames()
 Trié = False
 With Me.lbxPrinters
    .Clear
    Do
    For i = LBound(Printers) To UBound(Printers) - 1
        Trié = True
        If Right(Printers(i), 5) > Right(Printers(i + 1), 5) Then
            tmp = Printers(i)
            Printers(i) = Printers(i + 1)
            Printers(i + 1) = tmp
            Trié = False
        End If
    Next i
    Loop Until Trié = True
    For n = LBound(Printers) To UBound(Printers)
        .AddItem Printers(n)
        Sheets("Feuil1").Range("d" & n + 5) = Printers(n)
    Next n
 End With
End Sub