Erreur 91

Dim ligFinSup As Integer
ligFinSup = Columns(1).Cells.Find("2-Automation").Row - 1 
Select Case Target.Value
        Case "+"
            'recupération de l'adresse associées au "+"
            addr = Replace(Target.Address, "$", "")
            'récupération de la ligne associée
            rowAddr = Mid(addr, 2, 1)
            MsgBox addr
            MsgBox rowAddr
            If (ligFinSup > rowAddr) Then
                MsgBox "Partie Aut"
            Else
                MsgBox "partie Sup"
            End If
            
            'si le + est dans la colonne L => Ajout de bâtiment
            If InStr(addr, "L") <> 0 Then
                MsgBox "Ajout batiment"
                ajoutBat = True
            End If
            'si le + est dans la colonne N => Ajout de local
            If InStr(addr, "N") <> 0 Then
                MsgBox "Ajout local"
                ajoutLocal = True
            End If
            'si le + est dans la colonne Y ou dans la colonne V => Ajout ligne tab
            If InStr(addr, "Y") <> 0 Or InStr(addr, "V") <> 0 Then
                MsgBox "ajout ligne tab "
                ajoutLig = True
            End If
            'si le + est dans la colonne P => Ajout Armoire
             If InStr(addr, "P") <> 0 Then
                MsgBox "ajout armoire"
                ajoutArm = True
            End If
        Case "-"
            Exit Sub
        Case Else
            Exit Sub
    End Select

ligFinSup = Columns(1).Cells.Find("2-Automation").Row - 1