XL 2016 Ajouter Code VBA à Macro existante

On Error Resume Next
If Not Worksheets("Modèle (2)") Is Nothing Then Worksheets("Modèle (2)").Name = "G"
On Error GoTo 0

Sub NOUVEAUJOUEUR()
'
' NOUVEAUJOUEUR Macro
'
' Touche de raccourci du clavier: Ctrl+Shift+N
'
 Dim Sh As Worksheet
 Set Sh = Worksheets([LISTEJOUEURS].Parent.Name)
    [LISTEJOUEURS].ListObject.ListRows.Add (1)
    [LISTEJOUEURS[Nom]].Rows(1) = Sh.[G4]
    [LISTEJOUEURS[prenom]].Rows(1) = Sh.[I4]
    [LISTEJOUEURS[Club]].Rows(1) = Sh.[K4]
    [LISTEJOUEURS[Poste]].Rows(1) = Sh.[M4]
    [LISTEJOUEURS[DATE NAISSANCE]].Rows(1) = Sh.[O4]
     Sh.Range("G4,I4,K4,M4,O4").ClearContents
 Set Sh = Nothing
    
     Worksheets("MODELE").Copy After:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = [LISTEJOUEURS[Nom]].Rows(1)
    
    [C1] = [LISTEJOUEURS[Nom]].Rows(1)
    [F1] = [LISTEJOUEURS[prenom]].Rows(1)
    [H1] = [LISTEJOUEURS[Club]].Rows(1)
    [J1] = [LISTEJOUEURS[DATE NAISSANCE]].Rows(1)
    [L1] = [LISTEJOUEURS[Poste]].Rows(1)
    
End Sub