Saluut, j ai un grand probleme, enfin selon moi et mon niveau de debutant !  
 
Voila je voudrais copier plusieurs feuilles selon un modele (nombre de feuilles qui reste indeterminé) (a noter que j'ai plusieurs feuilles dans mon classeur), puis renommer chaque feuille selon une plage de cellule (contenant que des numeros) que je selectionne auparavant (ainsi chaque feuille est nommée par un numero) c est tout ce que j'ai trouvé comme méthode, j'aimerais faire plus simple, comme par exemple utiliser des cases a cocher et quand les cases sont cochées me creer les feuilles necessaires avec un titre et un nom d onglet correspondant au numero de la case.. MAIS JE SAIS PAS FAIRE, mo nnivo me l permet pas :s, si vous pouviez m aider SVP   ce srait top !!
 
Voici mon vba, qui fonctionne pas tellement :s ! :
 
Sub Tablo_provisions()  
Dim Mycell As Range, Mysheet As Worksheet, MyName$
For Each Mycell In Selection 'liste de noms
MyName = Mycell.Value
If MyName <> "" Then
On Error Resume Next
 
'le probleme se trouve dans ces 4 lignes je crois :
 
Sheets("Modèle" ).Select
Sheets("Modèle" ).Copy After:=Sheets(Sheets.Count)
Sheets("Modèle (2)" ).Select
Sheets("Modèle (2)" ).Name = MyName
 
On Error GoTo 0
If Mysheet Is Nothing Then Sheets.Add.Name = MyName
End If
Next Mycell
End Sub
 
 
A PART, si y a moyen.. :s    :
 
J'aimerais, si possible, que les nouvelles feuilles gardent l'ajustement et la disposition de mon modele (grand tableau).
 
Mon tableau etant plus ou moins lourd selon les feuilles qui vont etre crées, est ce possible de pouvoir ajouter les lignes necessaires (avec les couleurs, les formules.. de la première ligne) en appuyant sur un bouton ?
 
Ce srait fabuleux si vous pouviez m aider!!! je dois redre ce truc a mon employeur dm1 dans la soirée, j flippe un peu..
 
Merci BEAUCOUP !!! J espere avoir été clair et "concis", désolé pour la longueur du truc    

Macro recorder et aide en ligne