Re : Affichage ComboBox
Apparemment tu ne peux mettre le contenu d'une cellule fusionnée comme valeur d'un combobox...
Par contre si tu copies la valeur de ta cellule fusionnée dans une autre cellule (non fusionnée) ça marche
maligne = Target.Row
'déplacement de la valeur de la cellule fusionnée dans la cellule de la même ligne mais colonne 10...
Cells(maligne, 10).Value = Target.Value
Me.ComboBox1.Value = Cells(maligne, 10).Value 'Target.Value
Idem pour cette ligne là
If Target <> "" Then SendKeys "{esc}"
remplacé par
If Cells(maligne, 10).Value <> "" Then SendKeys "{esc}"
A+ François