Feuille récapitulative

'Code à placer dans chaque feulle récapitulative
Sub Recap()

    Dim ws As Worksheet, wsRecap As Worksheet
    Dim rg As Range, rg2 As Range
    Dim i As Integer
    
    Application.ScreenUpdating = False
    
    Set wsRecap = ActiveSheet
    wsRecap.Columns(8).Insert
    
    'boucle sur toutes les feuilles
    For i = 1 To ThisWorkbook.Sheets.Count
    
        'condition à vérifier pour les feuilles à récapituler
        If UCase(Sheets(i).Range("A1")) = "TABLEAU DE BORD" Then
        
            Set rg = Sheets(i).Range("A5")
            
            'boucle sur toutes les lignes, arrête dès que rencontre une ligne vide
            Do Until IsEmpty(rg)
                If UCase(rg) = UCase(wsRecap.Name) And rg.Offset(0, 7) = "-" Then
                    rg.Resize(1, 9).Copy
                    wsRecap.Range("A65536").End(xlUp).Offset(1, 0).Resize(1, 9).PasteSpecial xlPasteValues
                    wsRecap.Range("A65536").End(xlUp) = Sheets(i).Name      'no de semaine
                End If
            Set rg = rg.Offset(1, 0)
            Loop
        End If
    Next i
    
    wsRecap.Columns(8).Delete
    Application.ScreenUpdating = True
    
End Sub