J'ai peutetre trouvé mais il n'ouvre pas mes onglets " ws "
Sheets("Modèle").Activate
With Sheets("Modèle")
.Select
.Range("A8:C65").Select
End With
Selection.Copy
On Error Resume Next
'Sélectiion des deux feuilles où les occurences seront collées
Dim ws As Worksheet
For Each ws In Sheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novemmbre", "Décembre"))
ws.Activate
' Boucle sur le nombre de feuilles créé
For i = 2 To ActiveWorkbook.Sheets.Count
Sheets(i).Select
Range("A8:C65").Select
Selection.PasteSpecial
Next i
Next ws
Application.CutCopyMode = False
'Call Affiche_Sheets