Consolidation onglet + nom de l'onglet + enlever les lignes vides

Sub Recap()
    Dim sh As Worksheet
    Dim nLignes As Long
    With ThisWorkbook
        .Sheets("conso").UsedRange.ClearContents
        With Sheets("RECAP")
            'N'efface que les colonne A à F
            Intersect(.Columns("A:F"), .UsedRange).ClearContents
        End With
        For Each sh In .Worksheets
            If sh.Name <> "RECAP" And sh.Name <> "conso" Then
                With sh.Range("A1").CurrentRegion
                    nLignes = .Rows.Count
                    .Copy ThisWorkbook.Sheets("conso").Range("B" & sh.Rows.Count).End(xlUp)(2)
                End With
                .Sheets("conso").Range("A" & Rows.Count).End(xlUp)(2).Resize(nLignes).Value = sh.Name
            End If
        Next
        
        With .Sheets("conso")
            .Range("A1").EntireRow.Delete
            .Range("A1").CurrentRegion.Copy ThisWorkbook.Sheets("RECAP").Range("A1")
        End With
        'remettre les formules en colonne G de RECAP
         With Sheets("RECAP")
            .Range("G1:G" & Range("A" & .Rows.Count).End(xlUp).Row).FormulaR1C1 = "=IF(RC[-5]=0,0,conso!RC[-5]+2)"
         End With
       
    End With
End Sub
 
A+