somme des cellules A1 de tous les fichiers d'un repertoire

[lolost]

bonjour,
je suis completement debutant en VBA.
j'aimerais trouver un code qui me permette de faire la somme de toutes les cellules A1 de tous les fichiers se trouvant dans un meme repertoire.

j'ai trouvé un code que j'ai essayé d'adapter mais qui ne gere que la somme des cellules de plusieurs feuilles d'un meme fichier:

Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
tot = ws.Range("AK24").Value + tot
Next ws
MsgBox "La somme des cellules AK24 est : " & tot
End Sub


c'est exactement ce que j'ai besoin, mais faire l'operation sur plusieurs fichiers et non pas sur plusieurs feuilles.

pourriez vous m'aider svp ?
merci beaucoup.
Laurent.