Bonjour Ferdo, bonjour le forum,
Ton classeur a un comportement très étrange. Quand je l'ouvre la barre de tâche affiche plein de fenêtres et le fichier est ouvert 5 fois ?! Ça fout les jetons...
• Validation de données dans la cellule I9
Utilise cette formule : =DECALER($A$11;;;NBVAL($A:$A)-1) à la place de la tienne.
Elle permet d'avoir une liste dynamique (qui s'actualise automatiquement si tu ajoutes/effaces des données) et évite les blancs à la fin.
• Supprime carrément le Module1 avec la macro saugrenue [Couleur] !...
• Utilise les macros événementielles Change et SelectionChange ci-dessous :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$I$9" Then Exit Sub
If Target.Value = "" Then Exit Sub
Range("A10").CurrentRegion.Interior.ColorIndex = 2
Cells(Columns(1).Find(Target.Value, , xlValues, xlWhole).Row, 1).Resize(1, 6).Interior.ColorIndex = 17
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$I$9" Then Exit Sub
Range("I9").Value = Cells(ActiveCell.Row, 1).Value
End Sub
Tu devrais obtenir le résultat demandé.