Copier un Private sub worksheet change

Sub CREER_FEUILLE8_PARTICIPATION()
  Dim Nlig As Long
  '
  ' CREER_FEUILLE_PARTICIPATION Macro
  ' Macro enregistrée le 30/01/2007 par Martial
  ' modifiée par BunoM45
  ' Demander le nom de la nouvelle feuille et copier le modèle
  On Error GoTo gesterreur
  mafeuil = InputBox(Prompt:="Taper le nom de la feuille à créer. EX : VAILLANT Michel ")
  If mafeuil = "" Then Exit Sub
  Sheets("MODELE").Copy After:=Sheets(Sheets.Count)
  ActiveSheet.Name = mafeuil
  Range("I3").Value = mafeuil
  ' Désélectionner les cellules modèle et ajouter la personne à la liste des résidents
  Sheets("Accueil").Activate
  Nlig = Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Row
  Range("B" & Nlig).Value = mafeuil
  'Créer le lien hypertexte vers la feuille de présence
  ActiveSheet.Hyperlinks.Add Anchor:=Range("B" & Nlig), Address:="", SubAddress:= _
                             "'" & mafeuil & "'!A1", TextToDisplay:=mafeuil
  'Classer alphabétiquement la liste générale
  Range("B3:B" & Nlig).Sort Key1:=Range("b3"), Order1:=xlAscending, Header:=xlGuess, _
                            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
  Exit Sub
gesterreur:
  MsgBox "Votre création n'a pas été effectuée"
End Sub

Sub CREER_FEUILLE8_PARTICIPATION()
'
' CREER_FEUILLE_PARTICIPATION Macro
' Macro enregistrée le 30/01/2007 par Martial
' Demander le nom de la nouvelle feuille et copier le modèle
On Error GoTo gesterreur
maFeuil = InputBox(Prompt:="Taper le nom de la feuille à créer. EX : VAILLANT Michel ")
    If maFeuil = "" Then Exit Sub
    Sheets("MODELE").Copy After:=Sheets(2)
    ActiveSheet.Name = maFeuil
    ActiveSheet.Range("I3") = maFeuil
     Range("E4").Select
' Désélectionner les cellules modèle et ajouter la personne à la liste des résidents
...
...
...
Exit Sub
gesterreur:
MsgBox "Votre création n'a pas été effectuée"
End Sub