Suivi immobilier

Sub test()
Dim curSheet As Worksheet, i As Integer, noCol As Integer, noLig As Integer

With ThisWorkbook.Sheets("Recapitulatif")
    'nettoyer la fiche "Recapitulatif"
    .Range("3:" & .Cells(.Rows.Count, 1).End(xlUp).Row).ClearContents
    noLig = 3
    
    'parcourir toutes les feuilles du classeur
    For Each curSheet In ThisWorkbook.Worksheets
        'si on n'est pas sur la feuille "Recapitulatif"
        If curSheet.Name <> .Name Then
            'récupérer le no de colonne de la feuille courante dans la feuille "Recapitulatif"
            noCol = .Range("1:1").Find(curSheet.Name).Column
            'pour chaque entrées de la feuille courante
            For i = 3 To curSheet.Cells(curSheet.Rows.Count, 1).End(xlUp).Row
                .Cells(noLig, 1).Value = curSheet.Cells(i, 1).Value
                .Cells(noLig, noCol).Value = curSheet.Cells(i, 2).Value
                .Cells(noLig, noCol + 1).Value = curSheet.Cells(i, 3).Value
                .Cells(noLig, noCol + 2).Value = curSheet.Cells(i, 4).Value
                noLig = noLig + 1
            Next i
        End If
        
    Next curSheet
End With
End Sub