Sub DupliquerFeuilles()
Dim i As Integer
Dim Noms
'Array contenant les noms des feuillles
Noms = Array("AAA", "AAC", "AAD", "AGD")
For i = 0 To UBound(Noms)
Sheets("AA").Copy Before:=Sheets(1) 'la nouvelle feuille devient la 1re
Sheets(1).Name = Noms(i) 'la 1re feuille (nouvelle) est renommée
Next i
End Sub