Cellule sélectionnée figée après exécution macro

Bonjour,

J'utilises des macros via des boutons pour créer des devis.
Les boutons me permettent de recopier des lignes types présentes sur un autre onglet caché.
Mes macros ne sont pas stables : elles fonctionnent 90% du temps mais au bout de plusieurs utilisations, il arrive que l'écran se fige après exécution : l'affichage de la cellule sélectionnée est figé mais je peux néanmoins mettre à jour les cellules (seul le "carré de sélection" est figé : on ne voit plus l'endroit ou l'on clique...).
J'espère être clair...
Ci-dessous une des macros liées qui permet d'insérer une ligne là où on le souhaite dans le devis.
A priori j'avais déjà ce problème avant de rajouter les ntions d'Application.ScreenUpdating en début et fin.

Ce fichier est utilisé par de nombreux utilisateurs et je ne peux pas le laisser planter...
Pouvez vous m'aider ???

*****

Private Sub ajouterligne_position(Ligne As Integer, col As Integer)

' Ajoute une ligne choisie dans l'onglet Listes (feuil4) dans le devis (feuil2)
' L'utilisateur choisit la ligne (position) au dessus de laquelle il insère la ligne
' Ligne = ligne à copier - col = colonne où positionner le curseur une fois la ligne copiée

Dim pos As Integer

On Error Resume Next
Application.ScreenUpdating = False

pos = InputBox("Au dessus de quelle ligne voulez vous ajouter celle-ci ?", "Ajout de ligne", 0)
If pos < 19 Then
pos = 19 ' évite de copier des lignes au dessus de la ligne de titre !
End If

Feuil2.Unprotect

'Copie la ligne sur la feuille 4 cachée "Listes"
Feuil4.Activate
Rows(Ligne).EntireRow.Select
Selection.Copy
'Recopie la ligne sur la feuille 2 "Devis"
Feuil2.Activate
Rows(pos).Insert

Cells(pos, col).Activate

Feuil2.Protect


Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub