Fusion de données à partir de plusieurs fichiers

[CrokiX]

Bonjour,
Je souhaite créer un fichier synthèse qui regroupe tous les infos concernant des fichiers de facturation (tous au meme format et dans un meme dossier).
Je dois récupérer certaines cellules spécifiques de chaque fichiers "facture" vers mon fichier synthèse.

J'ai réussi en copiant et bidouillant une macro du forum a récupérer une cellule de tous mes fichiers "factures" dans un meme dossier vers mon fichier synthèse.
Je voudrai maintenant ajouter plusieurs cellules sources pour les importer dans mon fichier synthèse.

Pour résumer j'arrive à ajouter toutes les cellules W2 d'un dossier comprenant plusieurs fichiers excel vers un fichier synthèse en colonne A et je voudrais ajouter les cellules U5 en colonne B, U7 en colonne C etc..

voici ma macro:

Sub Importer()
Dim SummarySheet As Worksheet
Dim FolderPath As String
Dim NRow As Long
Dim FileName As String
Dim WorkBk As Workbook
Dim SourceRange As Range
Dim DestRange As Range
Set SummarySheet = Worksheets("DONNEES DE BASE")
FolderPath = "J:\PRC\Devis à +-5%\Devis\"
NRow = 2
FileName = Dir(FolderPath & "*.xl*")
Do While FileName <> ""
Set WorkBk = Workbooks.Open(FolderPath & FileName)
Set SourceRange = WorkBk.Worksheets(1).Range("W2")
Set DestRange = SummarySheet.Range("A" & NRow)
Set DestRange = DestRange.Resize(SourceRange.Rows.Count, _
SourceRange.Columns.Count)
DestRange.Value = SourceRange.Value
NRow = NRow + DestRange.Rows.Count
WorkBk.Close savechanges:=False
FileName = Dir()
Loop
SummarySheet.Columns.AutoFit
End Sub


Quelle modification dois-je faire pour ajouter des cellules sources à copier vers d'autres colonnes du fichier synthèse?
Merci,
cdlt,