Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Dim MesCellules As Range
Set MesCellules = Range("C2,E2,G3,B5,E5")
With Me.ComboBox1
.Visible = False
If Not Intersect(Target, MesCellules) Is Nothing And Target.Count = 1 Then
.List = Sheets("BD").Range("listeVilles").Value
.Height = Target.Height + 3
.Width = Target.Width + 2
.Top = Target.Top
.Left = Target.Left
.Value = Target
.Activate
.Visible = True
.DropDown ' ouverture automatique au clic dans la cellule
End If
End With
End Sub