Sub recap()
Dim tabRes(), tablo()
For Each f In ThisWorkbook.Sheets
If Len(f.Name) = 1 And Asc(f.Name) >= 65 And Asc(f.Name) <= 90 Then
ReDim tablo(0)
nbLigne = f.Cells(49, 2).End(xlUp).Row - 1
If nbLigne > 0 Then
tablo = f.Cells(2, 2).Resize(nbLigne, 8).Value
For lig = 1 To UBound(tablo)
ReDim Preserve tabRes(3, x)
tabRes(0, x) = tablo(lig, 1)
tabRes(1, x) = tablo(lig, 2)
tabRes(2, x) = tablo(lig, 7)
tabRes(3, x) = tablo(lig, 8)
x = x + 1
Next lig
End If
End If
Next f
Feuil1.[A1].Resize(x, 4) = Application.Transpose(tabRes)
End Sub