Sub RecopieMatrice()
Dim i%, arWSN() As String, x%
x = 0
For i = 1 To Worksheets.Count
If Sheets(i).Name <> "Action" Then
ReDim Preserve arWSN(x)
arWSN(x) = Sheets(i).Name
x = x + 1
End If
Next
Sheets(arWSN).FillAcrossSheets Worksheets("Matrice").Range("C11:AJ41"), xlFillWithAll
End Sub