Sub Copier()
Dim adr$, lig&, decal&, w As Worksheet, mem
adr = "O1:U8" 'adresse à adapter
lig = 1 '1ère ligne de destination, à adapter
Application.ScreenUpdating = False
With Sheets("RAPPORTS")
decal = .Range(adr).Rows.Count + 1 '1 ligne de séparation
.Rows(lig & ":" & .Rows.Count).Clear 'RAZ
For Each w In Worksheets
If UCase(w.Name) Like "F#*" Then
mem = w.Range(adr).Formula 'mémorise les formules
w.Range(adr) = w.Range(adr).Value 'supprime les formules
w.Range(adr).Copy .Cells(lig, 1) 'copier-coller
w.Range(adr) = mem 'restitution
lig = lig + decal
End If
Next
.Activate 'facultatif
End With...