Sub b()
Dim arrWSN() As String, i%, wSht As Worksheet, top, fin, duree
Application.ScreenUpdating = False
top = Timer
'crée un tableau avec le nom de toutes les feuilles du classeur actif
ReDim arrWSN(1 To ActiveWorkbook.Sheets.Count)
For i = 1 To Sheets.Count
arrWSN(i) = Sheets(i).Name
Next i
'ici recopie du contenu (formule inclue) de la plage B6:H8 de la feuille Modèle vers toutes les feuilles
Worksheets(arrWSN).FillAcrossSheets Worksheets("Modèle").Range("B6:H8"), xlFillWithAll
'conversion des palges en valeurs seules
For Each wSht In Worksheets
If wSht.Name <> "Modèle" Then
wSht.Range("B6:H8").Value = wSht.Range("B6:H8").Value
End If
Next wSht
fin = Timer
duree = Int((fin - top) * 1000) / 1000
MsgBox duree
End Sub