Application formule VBA à toutes les feuilles du classeur

Bonjour,

je suis débutante en VBA et je ne sais pas comment faire en sorte d'appliquer une formule à toutes les feuilles d'un classeur les unes après les autres (sans devoir renseigner le nom des feuilles ou leur nombre car ma formule doit être applicable à tous les classeurs Excel)

Voici le module en question :

Const lideb = 2

Sub TestDébitCrédit()
Dim lifin As Long
Dim SomF As Double, somG As Double
With ActiveSheet
  lifin = .Range("E" & Rows.Count).End(xlUp).Row
  SomF = Application.WorksheetFunction.Sum(Range("E" & lideb & ":E" & lifin))
  somG = Application.WorksheetFunction.Sum(Range("F" & lideb & ":F" & lifin))
  If Round(SomF, 5) = Round(somG, 5) Then
      MsgBox ("Equilibre vérifié")
  Else
      MsgBox ("Equilibre non vérifié")
  End If
End With
End Sub

Pouvez-vous m'aider ?

Merci d'avance

Bonjour,

Essaye donc comme ceci :

Const lideb = 2

Sub TestDébitCrédit()
Dim lifin As Long
Dim SomF As Double, somG As Double
Dim ws as Worksheet

For each ws in ThisWorkbook.Worksheets
ws.Activate
With ActiveSheet
  lifin = .Range("E" & Rows.Count).End(xlUp).Row
  SomF = Application.WorksheetFunction.Sum(Range("E" & lideb & ":E" & lifin))
  somG = Application.WorksheetFunction.Sum(Range("F" & lideb & ":F" & lifin))
  If Round(SomF, 5) = Round(somG, 5) Then
      MsgBox ("Equilibre vérifié")
  Else
      MsgBox ("Equilibre non vérifié")
  End If
End With
Next ws

End Sub

A plus !

C'est parfait, merci beaucoup, bonne fin d'après-midi !