XL 2013 Générateur d'onglet excel

Sub mlk()
Set wf = WorksheetFunction
Set t = Sheets("table")
Set b = Sheets("base")

nb = wf.CountA(t.Range("a7:a32"))
nb_feuil = 2

Call nettoyage

For i = 1 To nb
Sheets("base").Copy After:=Sheets(nb_feuil)
nb_feuil = nb_feuil + 1
Sheets(nb_feuil).Name = t.Range("a6").Offset(i, 0)
Sheets(nb_feuil).Range("ad2") = t.Range("a6").Offset(i, 0)
Next i
End Sub

Sub nettoyage()
' macro servant à supprimer toutes les feuilles
' autres que table et base
Application.DisplayAlerts = False
Set wf = WorksheetFunction
For Each s In Sheets
If Not wf.Or(s.Name = "table", s.Name = "base") Then s.Delete
Next s

End Sub

Sub CoupDeVBAlai()
Dim s As Worksheet
Application.DisplayAlerts = False
For Each s In Worksheets
If InStr("tablebase", s.Name) = 0 Then s.Delete
Next
End Sub