Bonjour
Tu as des cellules fusionnées : pas glop avec VBA
Modifie la macro actuelle
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([E7:Q9], Target) Is Nothing Then 'And Target.Count = 1 Then
a = Application.Transpose(Sheets("Liste des Clients").Range("Facture_Nom_L").Value)
Me.ComboBox1.List = a
Me.ComboBox1.Height = Target.Height + 3
Me.ComboBox1.Width = Target.Width
Me.ComboBox1.Top = Target.Top
Me.ComboBox1.Left = Target.Left
Me.ComboBox1 = Target.Cells(1, 1)
Me.ComboBox1.Visible = True
Me.ComboBox1.Activate
Me.ComboBox1.DropDown ' ouverture automatique au clic dans la cellule (optionel)
Else
Me.ComboBox1.Visible = False
End If
End Sub