Bonjour. Bienvenue sur le Forum
Pour créer tes feuilles, Code dans un Module
Sub Créer_Feuilles()
Dim I As Byte
If Sheets.Count > 1 Then Exit Sub
For I = 1 To 10 ' ici tu mets le nombre que tu veux
Sheets("GPA").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "GPA" & I
Next I
Sheets(1).Select
End Sub
Concernant la mise à jour, sans plus d'indication, la réponse est .."Oui, c'est possible"
Cordialement