XL 2016 Macro: Eviter les conflits ente les noms et les dates

Sub Test_V2()
''''''''''''''''''''''''''''''''''''''''''''''''''''
     'Copier coller la liste des joueurs et le nombre de fois sur la feuille 4
    Sheets("Tableau").Range("N3:N12").Copy Destination:=Sheets("Feuil2").Range("A1")
    Sheets("Tableau").Range("L3:L12").Copy Destination:=Sheets("Feuil2").Range("B1")
    Sheets("Feuil2").Select
'''''''''''''''''''''''''''''''''''''''''''''''''''
    ' On fait 1 colonnes avec les noms et les copie autant de fois que demandé sur la feuil2 ( Staple1600)

'Variables T
Dim T As Variant, i&, lgDeb&, nCopy&, item$
'valeurs dans l'array
Application.ScreenUpdating = False
 
T = Range("a1").CurrentRegion
lgDeb = 1 'début ligne
'boucle
For i = 1 To UBound(T, 1)
     item = T(i, 2): nCopy = T(i, 1) - 1
     If nCopy > -1 Then
     Range("d" & lgDeb & ":d" & (lgDeb + nCopy)).Value = item 'recopie en colonne d
     lgDeb = lgDeb + nCopy + 1 'incrément
     Range("D1").Select
    Range(Selection, Selection.End(xlDown)).Select
     End If
Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''
  '''' Repartition des données en 4 colonnes de 30 noms  ( Dranreb )''''
'Le principe d'utilisation de ma macro:
'1) — vous sélectionnez la plage source (elle peut ou non comporter déjà plusieurs colonnes)
'2) — vous exécutez la macro
'3) — vous sélectionnez la plage destinatrice (InputBox), Entrée.
'S 'il vous faut autre chose, débrouillez vous pour initialiser autrement la variable RngCbl, pareil pour une nouvelle RngSrc, que vous utiliserez dans la macro au lieu de Selection.
'Lecture et remplissage: de gauche à droite, puis, arrivé à la dernière colonne, de haut en bas.

'Variables
Dim TSrc(), RngCbl As Range, TCbl(), LSrc As Long, CSrc As Long, LCbl As Long, CCbl As Long
TSrc = Selection.Value
On Error Resume Next
Set RngCbl = Range("f1:i30")
If Err Then Exit Sub
On Error GoTo 0
ReDim TCbl(1 To RngCbl.Rows.Count, 1 To RngCbl.Columns.Count)
CCbl = 1
For CSrc = 1 To UBound(TSrc, 2)
    For LSrc = 1 To UBound(TSrc, 1): LCbl = LCbl + 1
       If LCbl > UBound(TCbl, 1) Then
          LCbl = 1: CCbl = CCbl + 1: If CCbl > UBound(TCbl, 2) Then Exit For
          End If
       TCbl(LCbl, CCbl) = TSrc(LSrc, CSrc): Next LSrc, CSrc
RngCbl.Value = TCbl
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Importer les 4 plages de 30 noms dans le tableau
'Worksheets("Feuil2").Range("F1:F30").Copy
'Worksheets("Tableau").Range("C3").PasteSpecial Paste:=xlValues
   'Worksheets("Feuil2").Range("G1:G30").Copy
   'Worksheets("Tableau").Range("E3").PasteSpecial Paste:=xlValues
      'Worksheets("Feuil2").Range("H1:H30").Copy
      'Worksheets("Tableau").Range("G3").PasteSpecial Paste:=xlValues
        'Worksheets("Feuil2").Range("I1:I30").Copy
        'Worksheets("Tableau").Range("I3").PasteSpecial Paste:=xlValues

Application.Run "Feuil4.RemplirTableau"


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Effacer le contenu de la feuil2 et revenir sur la feuille "Tableau"
Sheets("Feuil2").Range("A1:I200").ClearContents
Sheets("Tableau").Select
Range("B2").Select
   
''''''''''''Appel des macros "mixer_joueur" et les executer 5 fois chacune ( Staple1600 )
    'For i = 1 To 5
'Application.Run "Module1.Mixer_joueur_1"
'Application.Run "Module1.Mixer_joueur_2"
'Application.Run "Module1.Mixer_joueur_3"
' Application.Run "Module1.Mixer_joueur_4"
'Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  Application.ScreenUpdating = True
  Range("B2").Select
End Sub