Bout de code adapté :
Sub Onglet_auto()
'
Dim nb As Integer 'compteur
nb = 2
Dim CLT As Integer 'nombre de ligne du tableau
CLT = 4
'declaration des valeurs des champs du tableau
Dim nomrex As String
Dim nomtech As String
Dim codeop As String
Dim idfacil As String
Dim libsite As String
Dim dateinter As String
Dim detailop As String
Dim CR As String
Dim refdev As String
'ect.. a creer tout les champs utiles
Do
nomrex = Sheets("SYNTHESE").Cells(nb, 1).Value
nomtech = Sheets("SYNTHESE").Cells(nb, 2).Value
codeop = Sheets("SYNTHESE").Cells(nb, 3).Value
idfacil = Sheets("SYNTHESE").Cells(nb, 4).Value
libsite = Sheets("SYNTHESE").Cells(nb, 6).Value
dateinter = Sheets("SYNTHESE").Cells(nb, 7).Value
detailop = Sheets("SYNTHESE").Cells(nb, 8).Value
CR = Sheets("SYNTHESE").Cells(nb, 9).Value
refdev = Sheets("SYNTHESE").Cells(nb, 10).Value
'suppression onglet preexistant (l'onglet s'appele "ATHIS MONS CENTRAL ATM00240")
On Error Resume Next
Application.DisplayAlerts = False
Sheets(libsite & " " & codeop).Delete
Application.DisplayAlerts = True
'copie de l'onglet model
Sheets("feuil1").Select
Cells.Select
Selection.Copy
'ajout nouvel onglet
Sheets.Add before:=ActiveSheet
Cells.Select
ActiveSheet.Paste
'Changement nom onglet
ActiveSheet.Select
ActiveSheet.Name = libsite & " " & codeop
'ecriture des données
Range("a3").Select
ActiveCell.FormulaR1C1 = libsite
Range("c7").Select
ActiveCell.FormulaR1C1 = codeop
Range("a10").Select
ActiveCell.FormulaR1C1 = detailop
Range("A24").Select
ActiveCell.FormulaR1C1 = CR
Range("G1").Select
ActiveCell.FormulaR1C1 = dateinter
Range("b48").Select
ActiveCell.FormulaR1C1 = nomrex
Range("B49").Select
ActiveCell.FormulaR1C1 = nomtech
nb = nb + 1
Loop Until nb > CLT
End Sub
Alors bon c'est un debut et c'est du travail de débutant, mais ca fonctionne. et quand t'as 250 lignes et qu'en 1 click tu génère 250 fiches formatées ET REEDITABLES c'est magique!
A+