Tableau Trimestriel

[gerwyn]

bonjour à tous.

j'aurais besoin d'aide pour écrire un code qui ferai a peu près ceci:

regarder de combien de semaine est composé le trimestre (valeur contenue dans une cellule définie)

ouvrir sucessivement les feuilles correspondante (j'ai une feuille par semaine)

jusque la tout va bien

pour chaque feuille
lire la collone B (qui contient des destination)
pour chaque destination, trouver la ligne correspondante dans le tableau Trimestriel (la je bloque)
puis lire la case de la collone C et si elle commence par 911, il faudrait incrémenter une cellule dans le tableau
sinon incrémenter une autre cellule.

j'espère être clair. et je remercie toute attention porté à mon problème
je suis preneur de tout idée

j'ai une peu avancé mais cela ne marche pas voici mon code

Select Case Trim
    Case "Trim1"                                             'choix trimestre
        Sheets(Trim).Activate
        Range("E5") = "Janvier"
        Range("I5") = "Février"
        Range("M5") = "Mars"
        g = recherche(Trim, "Janvier", Janv, 1)                   'appel fonction recherche
        h = recherche(Trim, Fevrier, Fev, i)
        L = recherche(Trim, Mars, Mar, Fev)

et ma fonction:

Function recherche(Trim As String, Month As String, z As Integer, i As Integer)
Dim a, b As Integer
Dim Mach1 As String
Dim DebutMoi, FinMoi As Integer

Select Case Trim
    Case "Trim1"
        Select Case Month
            Case "Janvier"
            DebutMoi = 1
            FinMoi = z
            Case "février"
            DebutMoi = i + 1
            FinMoi = z
            Case "mars"
            DebutMoi = i + 1
            FinMoi = z
        End Select
            For r = DebutMoi To FinMoi
                Sheets("sem" & i).Select
                    For a = 1 To 60
                        If Range("B" & a) <> "" Then
                            Mach1 = Range("B" & a).Value
                        End If
                        Sheets(Trim).Activate
                            b = 7
                            Do Until StrComp(Mach1, Range("A" & b).Text, vbcompare) = 0
                            b = b + 1
                            Loop
                                If Range("sem" & i!["c" & a]).Value = "911???" Then
                                
                                Range("F" & b).Value = Range("F" & b).Value + 1
                                
                                Else
                                Range("E" & b).Value = Range("E" & b).Value + 1
                                End If
                    Next a
            Next r
            
     Case "Trim2"
     Case "Trim3"
     Case "Trim4"
End Select
     
End Function