XL 2013 Créer macro en automatique

[I]Sub IP_xxxxx (NomFeuille as string)

Sheets([I]NomFeuille[/I]).Select
Cells.Find(What:="IP_" &NomFeuille, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False).Activate
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("CLIENT").Select
Range("A65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(2, 0).Select
ActiveSheet.Paste
Sheets([I]NomFeuille[/I]).Select
Application.CutCopyMode = False
End Sub[/I]
[I]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 14 And Target = "Copier" Then
    Call IP(Target.Row)
End If
End Sub

Sub IP(ligne As Integer)
Application.EnableEvents = False 'on désactive les évènements
Application.ScreenUpdating = False 'on désactive le rafraichissement de  la feuille
With ActiveSheet 'dans la feuille active
    Set Fin = .Range("B" & ligne & ":B65536").Find(.Name, lookat:=xlPart) 'recherche de la prochaine ligne de colonne B qui contient le nom de la feuille
    If Not Fin Is Nothing Then 'si on trouve
        .Range("A" & ligne & ":M" & Fin.Row - 2).Copy Destination:=Sheets("CLIENT").Range("A" & .Rows.Count).End(xlUp).Offset(2, 0) 'on copie colle le bloc à la fin de la feuille CLIENT
        Application.CutCopyMode = False
        .Range("N" & ligne) = "Déjà Copiée" 'on passe la colonne N en Déjà copiée
     End If
End With
Application.EnableEvents = True 'on réactive
Application.ScreenUpdating = True
End Sub

Sub IP(ligne As Integer)
Application.EnableEvents = False 'on désactive les évènements
Application.ScreenUpdating = False 'on désactive le rafraichissement des feuilles
With ActiveSheet
    Set BlocSuivant = .Range("B" & ligne & ":B65536").Find(.Name, lookat:=xlPart) 'recherche de la prochaine ligne de colonne B qui contient le nom de la feuille
    If Not BlocSuivant Is Nothing Then 'si il y a quelque chose
        If BlocSuivant.Row = ligne Then 'si on retrouve le bloc en cours (==on est sur le dernier bloc
            Fin = .UsedRange.Rows.Count + 5 'on met la dernière ligne de la feuille
        Else
            Fin = BlocSuivant.Row - 2 'sinon on récupère la ligne -2 pour remonter dans le bloc en cours
        End If
           
        .Range("A" & ligne & ":M" & Fin).Copy Destination:=Sheets("CLIENT").Range("A" & .Rows.Count).End(xlUp).Offset(2, 0) 'on copie colle
        Application.CutCopyMode = False
        .Range("N" & ligne) = "Déjà Copiée"
     End If
End With
Application.EnableEvents = True 'on réactive
Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Target.Column = 14 And Target = "Copier" Then
    Call IP(Target.Row)
End If
End Sub