Sub creation_feuille()
Dim mapl As Range, cel As Range, x$, fe As Object
With Sheets("Listing onglet")
Set mapl = .Range("B1:B" & .Range("A" & .Rows.Count).End(xlUp).Row)
End With
mapl.Name = "Liste"
For Each cel In mapl
x = LCase(Left(cel, 31)) 'maximum 31 caractères
If x <> "" Then
For Each fe In Sheets
If LCase(fe.Name) = x Then GoTo 1
Next fe
Sheets.Add After:=Sheets("Acceuil") 'en français on écrit "Accueil" !!!
ActiveSheet.Name = Left(cel, 31)
End If
1 Next cel
End Sub