J'ai créé un classeur dont chaque page contient une cellule portant le nom d'une personne comment puis-je faire pour que automatiquement la feuille prenne pour nom le nom de la personne saisie ?

Si tes noms sont en A1 de chaque feuille On Error Resume Next For Each sht In ActiveWorkbook.Worksheets Sheets(sht.Name).Name = Sheets(sht.Name).[A1] Next