Trier les fichiers dans des répertoires différents selon leur nom

=> excel 2003 => merci à tototiti2008
'2008 ------------ Rangeur de igc ------------------
Private Sub CommandButton1_Click()
DeplaceFichiers ("CHEMIN ABSOLU ou se trouve les fichiers")
End Sub

'--------------------------------------------
Sub DeplaceFichiers(DossierSource As String)
'--------------------------------------------
Dim FS As FileSearch, i As Long, DernieresLettres As String
    Set FS = Application.FileSearch
    With FS
    .Filename = "*.igc"
    .LookIn = DossierSource
    '.SearchSubFolders=True 'Seulement si on veut rechercher dans les sous-dossiers
    .Execute
        For i = 1 To .FoundFiles.Count
            DernieresLettres = UCase(Mid(.FoundFiles(i), Len(.FoundFiles(i)) - 0, 2))
            NomFichier = Right(.FoundFiles(i), Len(.FoundFiles(i)) - InStrRev(.FoundFiles(i), "\"))
                Select Case DernieresLettres
                    Case "12"
                    Name (.FoundFiles(i)) As ("CHEMIN DU DOSSIER" & NomFichier)
                    Case "A2"
                    Name (.FoundFiles(i)) As ("CHEMIN DU DOSSIER SUIVANT" & NomFichier)
                    '... autant de case que d'immat planeur
                    Case Else
                    'MsgBox "Cas pas prévu " & DernieresLettres
                End Select
        Next i
    End With
End Sub