Sub initialisation()
' supprime tous les onglets exceptés "liste" et "Modele"
Application.DisplayAlerts = False
For Each s In Sheets
If InStrRev("liste_Modele", s.Name) = 0 Then s.Delete
Next s
End Sub
Sub remplissage(i)
' remplissage de la nouvelle feuille
nom = Sheets("liste").Range("a6").Offset(i, 0)
prenom = Sheets("liste").Range("b6").Offset(i, 0)
info1 = Sheets("liste").Range("c6").Offset(i, 0)
info2 = Sheets("liste").Range("d6").Offset(i, 0)
info3 = Sheets("liste").Range("e6").Offset(i, 0)
info4 = Sheets("liste").Range("f6").Offset(i, 0)
Sheets("Modele (2)").Name = nom
With Sheets(nom)
.Range("b2") = nom
.Range("b3") = prenom
.Range("b4") = info1
.Range("d2") = info2
.Range("d3") = info3
.Range("d4") = info4
End With
End Sub