Sub ajoutfeuille()
Nomfeuille = Range("B" & Rows.Count).End(xlUp)
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Nomfeuille
End Sub
Sub ajoutfeuille()
NomFeuille = Range("B" & Rows.Count).End(xlUp)
MsgBox "la feuille qui va etre créée s'appelle:""" & NomFeuille & """"
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = NomFeuille
End Sub