Programmation fonction

Option Explicit

Public Const shdeb = 2    ' premier numero feuilles détail
Public Const shfin = 18   ' dernier numéro feuilles détail
Public Const conum = 2    ' colonne n° feuilles détail
Public Const lis = 4      ' ligne de tête feuilles détail

' num = numero, s = semaine
Public Function TotS(num, s)
Dim sh As Long, ts As Long, ob As Object, li As Long, co As Long, plage As Range
' initialisation de ts (total cumulé)
ts = 0
' pour chaque numéro de feuille depuis shdeb jusqu'à shfin
For sh = shdeb To shfin
  'MsgBox sh & "-" & Sheets(sh).Name
  ' plage où on va rechercher le numero (colonne conum)
  Set plage = Sheets(sh).Columns(conum)
  ' recherche du numero dans la plage
  Set ob = plage.Find(num, , , xlWhole)
  ' si num trouvé
  If Not ob Is Nothing Then
    ' ligne où num à été trouvé
    li = ob.Row
    ' plage ^ù on va rechercher recherche la semaine
    Set plage = Sheets(sh).Rows(lis)
    ' recherche de la semaine
    Set ob = plage.Find(s, , , xlWhole)
    ' si semaine trouvée
    If Not ob Is Nothing Then
      ' colonne où s à été trouvée
      co = ob.Column
      ' si La cellule (li,co) est numérique on l'ajoute au total
      If IsNumeric(Sheets(sh).Cells(li, co)) Then ts = ts + Sheets(sh).Cells(li, co)
      'MsgBox ts
    End If
  End If
Next sh
' si ts=0 on renvoie "" sinon on renvoie ts
If ts = 0 Then
  TotS = ""
Else
  TotS = ts
End If
End Function

Public Const shdeb = 2    ' premier numero feuilles détail
Public Const shfin = 15   ' dernier numéro feuilles détail
Public Const conum = 2    ' colonne n° feuilles détail
Public Const lis = 4      ' ligne de tête feuilles détail

Public Const shdeb = 2    ' premier numero feuilles détail
' Public Const shfin = 15   ' dernier numéro feuilles détail
Public Const conum = 2    ' colonne n° feuilles détail
Public Const lis = 4      ' ligne de tête feuilles détail

Public Function TotS(num, s)
Dim sh As Long, ts As Long, ob As Object, li As Long, co As Long, plage As Range
Dim shfin As Long
ts = 0
shfin = Sheets.Count
For sh = shdeb To shfin