1. Sub InsereNouvelleFeuille(Byval Projet as Variant, ByVal X as Integer, Byval Y as Integer) 2. Dim Nouvellefeuille as worksheet 3. Set Nouvellefeuille = Sheets.Add(After:=Sheets(Sheets.Count)) 4. Nouvellefeuille.name = Projet 5. Sheets("recap").Cells(Y,X) = Projet 6. End Sub