Copier ligne dans une nouvelle feuille si

Option Explicit
Option Base 1
'--
Const Col As Byte = 1 'colonne de recherche
Const Lig_ent As Byte = 3 'ligne des entêtes
'-----------
Sub selectionner_selon_nom()
Dim Qui As String, Dercol As Byte, Nbre As Integer, Entete
Dim Lig As Integer, Idy As Integer, Idx As Byte, T_qui()

'----------------initialisations
Application.ScreenUpdating = False
With ActiveSheet
     Qui = Range("nom") 'cellule nommée (adresse nom précisée dans la demande !)
     Dercol = .Rows(Lig_ent).Find("*", , , , , xlPrevious).Column
     'verif nom existant
     Nbre = Application.CountIf(.Range(.Cells(Lig_ent, Col), .Cells(10000, Col)), Qui)
     If Nbre = 0 Then GoTo Vide
     ReDim T_qui(Nbre, Dercol - Col + 1) 'tableau des lignes avec "qui"
     'mémorise la ligne d'ent^te
     Entete = .Range(.Cells(Lig_ent, Col), .Cells(Lig_ent, Dercol))
     
 '---------------------traitement sur feuille database
     ' recherche les lignes  avec "Qui"
     Lig = Lig_ent
     For Idy = 1 To Nbre
          Lig = .Columns(Col).Find(Qui, Cells(Lig, Col), xlValues).Row
     'mémorisation  des données à copier
          For Idx = Col To Dercol
               T_qui(Idy, Idx) = .Cells(Lig, Idx)
          Next Idx
     Next Idy
End With

'------------------construction de la feuille "qui"
Sheets.Add
With ActiveSheet
     .Move After:=Sheets("Bdd") ' A adapter nom de l'onglet base de données
    .Name = Qui
    .Range(.Cells(Lig_ent, Col), .Cells(Lig_ent, Dercol)) = Entete 'entêtes
     .Cells(Lig_ent + 1, Col).Resize(Nbre, Dercol - Col + 1) = T_qui 'restitution données de "qui"
     .Range(.Cells(Lig_ent, Col), .Cells(Lig_ent + Nbre, Dercol)).Borders.Weight = xlThin 'encadrement
End With
Exit Sub

'----------------gestionnaire d'erreur
Vide:
     MsgBox Qui & " Inconnu !", vbCritical
End Sub