VBA calcul somme de toutes les feuilles du classeur

bonjour à tous, 

je souhaite construire un historique de données en empilant des rapports CSV dans un fichier excel. 
dans chacun de mes rapports CSV, je m'intéresse à la colonne 19.

je souhaite calculer la somme de cette colonne 19 (qui s'intitule ESV) de manière journalière. Un rapport CSV correspond à une journée. 

je voudrai que ces sommes journalières s'affichent dans une feuille résultat, en colonne suivant la date donnée. 

j'ai développé un code mais il fonctionne que pour la première feuille et je ne sais pas comment adapter pour toutes les feuilles 

je ne sais pas si il faut remplacer le I par activeworkbook. 

je ne trouve rien qui pourrait m'aider. 

merci a tous 

public Fonction Calcul ESV() as double

dim I as long

do until cells(ligne+1,1).value=""
    ligne=ligne+1
loop

dim total_ESV() as double
dim ESV() as double

for I = 1 to ligne
    if cells(1,19)="ESV" then
      total_ESV(I)=0 
      ESV(I)=cells(I+1,19).value
      total_ESV(I)= total_ESV(I-1)+ESV(I)
    end if 
next I 

calcul_ESV= total_ESV(ligne)

end function