Erreur sur mon fichier

Bonsoir, j'ai voulu preparer un fichier pour l'année prochaine, je me retrouve avec une erreur 13.

Elle arrive apres la copie du code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim ws, cel As Range, np$, tel$, L!, T!
    Me.Shapes("InfB").Visible = msoFalse
    If Target.Count > 1 Or Target.Row < 3 Then Exit Sub
    If (Target.Column = 3 Or Target.Column = 10 Or Target.Column = 17 Or Target.Column = 24) And Target <> "" Then
        np = Target
        On Error GoTo Fin
        ws = Split(Target.Validation.Formula1, "!")(0)
        On Error GoTo 0
        ws = Replace(Replace(ws, "=", ""), "'", "")
        Set cel = Worksheets(ws).Columns("A").Find(np, , xlValues)
        If Not cel Is Nothing Then tel = cel.Cells(1, 6) Else Exit Sub
        T = Target.Offset(-5 / 3).Top
        L = Target.Left + Target.Width * 1 / 2
        With Me.Shapes("InfB")
            .TextFrame.Characters.Text = tel
            .Top = T: .Left = L: .Visible = msoTrue
        End With
    End If
Fin:
End Sub

dans mon onglet 13juinprog (le code provient d'un fichier ou cela fonctionne, la seule différence est le numéro de la feuille)

j'ai également une erreur de fichier trop endommagé à l'enregistrement.

Je suis un peu paumé.

Merci d'avance.

Bonjour,

Première source potentielle d'erreur :

Dim np$
np = Target

J'ai résolu un des problèmes, il provenait d'une formule incohérente.

2eme pb, j'ai une liaison vers un fichier après un copier de feuille, j'aimerai supprimer cette liaison mais cela ne fonctionne pas via le menu données-->Modifier les liaisons-->Rompre les liaisons. Comment puis je faire?