onglet récapitulatif

Private Sub CommandButton1_Click()
Dim sh As Worksheets, n As Byte, Cel As Range
On Error Resume Next
Sheets("Récap").Range("A5:D40").ClearContents
For n = 1 To Sheets.Count - 1
  With Sheets(n)
    For Each Cel In .Range("A5:A40").SpecialCells(xlCellTypeConstants)
      If .Cells(Cel.Row, 4) = "" Then
        lg = Sheets("Récap").Range("A65536").End(xlUp).Row + 1
        Sheets("Récap").Range("A" & lg).Value = .Range("A" & Cel.Row).Value
        Sheets("Récap").Range("B" & lg).Value = .Name
        Sheets("Récap").Range("C" & lg & ":D" & lg).Value = .Range("B" & Cel.Row & ":D" & Cel.Row).Value
      End If
    Next
  End With
Next
Range("A4:D40").Sort Key1:=Range("D5"), Order1:=xlAscending, Key2:=Range("A5") _
  , Order2:=xlAscending, Key3:=Range("B5"), Order3:=xlAscending, Header:= _
  xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
  DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
End Sub