Option Explicit
Sub Zonedeliste1_QuandChangement()
Dim Rech As Variant
Dim Zone As Shape
Dim Plage As Range
Set Zone = ActiveSheet.Shapes("Zone de liste 1")
Set Plage = ActiveSheet.Range(Zone.ControlFormat.ListFillRange)
Set Rech = Plage.Find(what:=Plage.Offset(Zone.ControlFormat.ListIndex - 1).Resize(1).Value, LookIn:=xlValues, lookat:=xlWhole)
If Not Rech Is Nothing Then
Application.Goto Rech, True
End If
Set Rech = Nothing
Set Plage = Nothing
Set Zone = Nothing
End Sub
Sub Zonedeliste1_QuandChangement()
Sheets("feuil1").Range("A" & Range("I6").Value).Select
End Sub
... J'y souscris à 200% ... voire plus encore !brigitte à dit:2. il serait mieux de mettre un titre à chaque colonne