Sub AjouteFeuilles()
Application.ScreenUpdating = False
Sheets("N").Select
DL = [A65500].End(xlUp).Row ' Dernière ligne du tableau
tablo = Range("A4:A" & DL) ' Tranfert des matricule das un array
For N = 1 To UBound(tablo) ' Pour chaque matricule
If IsError(Evaluate("=" & tablo(N, 1) & "!A1")) Then 'Si cette feuille n'existe pas alors
Sheets("TrameBSI").Copy After:=Worksheets(Sheets.Count) ' On duplique TrameBSI à la fin
ActiveSheet.Name = tablo(N, 1) ' On la renomme avec le...