Bonjour fredco6180
je ne suis pas sur d'avoir bien compris ta demande de copier les totaux vers d'autres feuilles.
Est-ce que dans la feuil1 le total sera cumulé ou remis à zéro à chaque fois? dans ce cas la formule est différente.
à placer dans le code de la feuille( voir fichier joint)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("G1"), Target) Is Nothing Then
Range("G2") = Range("G1") + Range("G2")
Range("G1").Select
Selection.ClearContents
End If
End Sub
A tester et adapter a tes cellules
fais-moi savoir si ton total est variable ou remis à zéro tous les jours ?
Amicalement
Pierrot