Bonjour,

J'ai une feuille excel avec le code ci-dessous.
Sur cette feuille j'aimerai coller des éléments manuellement par Ctrl+C /Ctrl+V.
Problème, dès que je sélectionne une cellule, pour y coller mes élément, une "moulinette" se lance durant 1s (le curseur de la sourie clignote) et ensuite impossible de coller (Ctrl+V) mes éléments. On à l'impression que la "moulinette" vide la mémoire de ce qui à été copié.
Le "coller" (Ctrl+V) fonctionne uniquement si je ne clic pas sur la feuille, mais dans ce cas les élément sont collé sur la cellule ayant été sélectionnée en dernier, ce qui n'est pas forcément intéressant.

En isolant cette partie du code, "Private Sub Worksheet_SelectionChange" le problème disparaît.
J'aimerais pouvoir à la fois faire de Ctrl+C /Ctrl+V sur l'ensemble des cellules à partir de la ligne 20 et aussi conserver les fonctionnalités de ce code, sachant que ce code concerne uniquement la cellule C4.
Y a-t-il une solution?

Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Target.Address = "$C$4" Then
 
    h = Sheets("Repertoire SEDAM tempo").Range("Auteur").Value
    Me.ComboBoxChoixAuteur.List = h
    Me.ComboBoxChoixAuteur.Height = Target.Height + 3
    Me.ComboBoxChoixAuteur.Width = Target.Width
    Me.ComboBoxChoixAuteur.Top = Target.Top
    Me.ComboBoxChoixAuteur.Left = Target.Left
    Me.ComboBoxChoixAuteur = Target
    Me.ComboBoxChoixAuteur.Visible = True
    Me.ComboBoxChoixAuteur.Activate
  Else
    Me.ComboBoxChoixAuteur.Visible = False
 
  Call RemplissageInterlocuteur
 End If