Sub Mac_creation_liste_2()
Dim LstRw As Long
'Récupération du numéro de la dernière ligne remplie en colonne A
LstRw = Sheets("Feuil1").Cells(Application.Rows.Count, 1).End(xlUp).Row
ActiveWorkbook.Names.Add Name:="Teffectifs", RefersToR1C1:= _
"=Feuil1!R2C1:R" & LstRw & "C11"
End Sub