Bonjour,
en sélectionnant plusieurs cellules dont C5, c’est normal que cela bug, puisque tu ne respecte pas ne nombre de cellule (target.count=1)
Dans ce cas, tu peut placer juste avant
Dim a() 'Déclaration variable
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
'Il faut modifier la propriété MatchEntry du ComboBox5 à FrmMatchEntryNone pour l’intuitif
If Not Intersect([C5], Target) Is Nothing And Target.Count = 1 Then 'En se plaçant sur la cellule C5
Me.ComboBox5.Value = « » 'Je vide le combobox
a = Sheets(« Feuil1 »).Range(« Article »).Value 'Je charge la liste des articles (voir dans le gestionnaire de noms pour la dynamique)
Me.ComboBox5.List = a 'Je charge le combobox avec les articles
Me.ComboBox5.Height = Target.Height + 3 'Hauteur du combobox
Me.ComboBox5.Width = Target.Width 'largeur du combobox
Me.ComboBox5.Top = Target.Top 'Position du haut combobox
Me.ComboBox5.Left = Target.Left 'position à gauche du combobox
Me.ComboBox5 = Target 'combobox est égal à la cellule (Target)
Me.ComboBox5.Visible = True 'Je rend visible le combobox
Me.ComboBox5.Activate 'Je l’active
Me.ComboBox5.DropDown ’ ouverture automatique au clic dans la cellule (optionnel)
UneLigneSurDeux 'Je lance la macro pour remettre la couleur une ligne sur deux
Else 'Sinon
Me.ComboBox5.Visible = False 'je masque le combobox
End If
End Sub