Sub Transposerficheaction()
With Sheets("TRANSPOSE")
.Cells(3, 1).Resize(.UsedRange.Rows.Count, 8).Clear
nf = 0
For Each f In Sheets
If Left(f.Name, 1) = "F" Then
f.Range(f.Cells(1, 15), f.Cells(8, 21)).Copy
.Cells(nf * 8 + 3, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
nf = nf + 1
End If
Next f
End With
End Sub