[/Sub sommecolonnefeuilles()
Dim c As Byte
Dim vligne As Integer
Dim ws As Worksheet
Dim vsomcolonne As Long
Dim vcellule As Range
For Each vcellule In Range("b5:b" & Range("b65536").End(xlUp).Row)
For Each ws In ActiveWorkbook.Worksheets
For c = 1 To 3
vsomcolonne = vsomcolonne + ws("ws.Name").vcellule(vligne, c)
ws("A").vcellule(vligne, c) = vsomcolonne
Next c
Next ws
Next vcellule
ws("A").vcellule(vligne, c) = vsomcolonne + ws("A").vcellule(vligne, c)
vsomcolonne = 0
End Sub
Merci d'avance de vos éclairages pour que je comprenne le pourquoi du comment. VBA relève encore un peu de la magie pour moi.
merci d'avance.