Re-Bonjour Michel, Bonjour Jean, Fabrice, le Forum
Ce code avec des WBSource et WBCible, c'est signé par bibi çà !
En fait j'ai trouvé le Fil d'origine avec Jean Lien supprimé
Pour ce cas présent, il y a eu un peu massacre du code on dirait... Je propose ceci (qui comme le dit très bien Michel peut aller dans un Module Standard)
Sub WBSourceSumming()
Dim WBSource As Workbook, WBCible As Workbook
Dim WS1 As Worksheet
Dim Feuille As Byte, i As Byte
Dim Somme As Double
Dim C As Byte
Set WBSource = Workbooks("source.xls")
Set WBCible = Workbooks("cible.xls")
Set WS1 = WBCible.Sheets("Feuil1")
For Feuille = 1 To WBSource.Sheets.Count
For i = 10 To 150
Somme = Somme + WBSource.Sheets(Feuille).Cells(i, 2)
Next i
C = WS1.Range("S10").End(xlToLeft).Column
WS1.Cells(10, C + 1) = Somme
Somme = 0
Next Feuille
End Sub
Pour autant que j'ai compris quelque chose à ce que voulait faire Jean.
Par contre j'ai vu que Jean avait un dernier souci dans l'autre Fil alors je lui donne rendez-vous là bas Lien supprimé
Bonne Soirée
@+Thierry