Bonjour,
Merci pour la réponse.
J'aimerai savoir si le fait d'inclure cette formule de
E11:E23
comme ceci :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Amount As Long
Const strCELL As String = "$E$11:$E$23"
With Sh
If .Index > 1 Then
Amount = Sheets(.Previous.Name).Range(strCELL).Value
.Cells(3, 3).Value = Amount + .Cells(2, 3).Value
End If
End With
End Sub