Bonjour Musica,
Voici une petite procédure qui devrait t'aider :
1 - Colle ces lignes de code dans ton éditeur
2 - Transfers dans un classeur sur un onglet ta BDD avec ce qui sera tes noms de feuilles.
3 - selectionne la BDD puis exécute la macro.
Sub FeuilViaLst()
Dim Mycell As Range, Mysheet As Worksheet, MyName$
For Each Mycell In Selection 'liste de noms
MyName = Mycell.Value
If MyName <> "" Then
On Error Resume Next
Set Mysheet = Sheets(MyName)
On Error GoTo 0
If Mysheet Is Nothing Then Sheets.Add.Name = MyName
End If
Next Mycell
End Sub
NB : je ne revendique pas la paternité de ce script, rendons à JOSS ce qui lui appartient.
Rénato