Sub test2()
Dim ws As Worksheet
Dim tablo
Dim n As Long
With Sheets("CONSO2")
.[A1:P186].ClearContents
For Each ws In Worksheets
If Left(ws.Name, 1) = "F" Then
tablo = ws.Range("M8:BV23") '16 lignes, 62 colonnes
.Range(Cells(1 + n, 1), Cells(62 + n, 16)) = Application.Transpose(tablo)
n = n + 62
End If
Next
End With
End Sub