Sub Zonecombinée1_QuandChangement()
With ThisWorkbook.Sheets("DEVIS").Shapes("Drop Down 1").ControlFormat
MsgBox .Value: Rem retourne l'index
MsgBox .List(.Value): Rem retourne le text
Text = .List(.Value)
MsgBox Text
End With
Range("F63:F1000").Find(Text, LookIn:=xlValues).Select
End Sub
Sub Flècheverslehaut1_Cliquer()
ActiveSheet.Range("D6").Activate
End Sub