Private Sub ComboBox_poste_Change()
Dim C As Range
If ComboBox_poste.ListIndex = -1 Then Exit Sub
For Each C In Selection 'Boucle sur les cellules selectionnées
If Not Intersect(C, [plage]) Is Nothing Then ' vérifie si C est bien dans plage("plage" est un nom défini)
Feuil2.Cells(ComboBox_poste.ListIndex + 3, 2).Copy C
MsgBox "Valeur de la cellule recherchée: " & Feuil2.Cells(ComboBox_poste.ListIndex + 3, 2) & vbLf & "Adresse de la cellule recherchée : Feuil2 " & Feuil2.Cells(ComboBox_poste.ListIndex + 3, 2).Address & vbLf & "Adresse de la cellule de destination: " & C.Address
End If
Next
If [c36] = "" Then [d36] = "": [d36].Interior.ColorIndex = xlNone
ComboBox_poste = ""
End Sub