Sub AddName(ONGLET_name As String, miniL As Integer, miniC As Integer)
Dim L As Integer, c As Integer
'
' Définition de la zone de "NOM" pour construire des TCD ou autres références
' utilisables dans des formules
'
Sheets(ONGLET_name).Select
c = Sheets(ONGLET_name).Range("A1").End(xlToRight).Column
L = Sheets(ONGLET_name).Range("A65536").End(xlUp).Row 'dernière ligne du tableau
ActiveWorkbook.ActiveSheet.Range(Cells(miniL, miniC), Cells(L, c)).Select
If L > 3 Then
' With Selection
Selection.CreateNames Top:=True, Left:=False, Bottom:=False, Right:=False
'End With
End If
End Sub