Sub Copie_mise_en_forme()
'
Sheets("11480_20120813").Select
Cells.Select
Selection.Copy
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
' Si le nom n'appartient pas à la liste entre guillemets
If InStr(1, "Graph2 récap index_feuilles 11480_20120813", Ws.Name) = 0 Then
Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
Next Ws
End Sub