Lien hypertexte

Bonjour,

Une solution

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.CountLarge > 1 Then Exit Sub 'CountLarge, car le nombre de cellules dépasse la capacité de Count
    If Not Intersect(Target, Range("AJ3:AJ100")) Is Nothing Then
        Range("AJ3:AJ100").Resize(, 2).Interior.Color = vbWhite
        Target.Resize(, 2).Interior.Color = RGB(255, 255, 0)
    End If
Fin:
End Sub

Bonne apm

Edit, avec le CountLarge, je ne pense plus qu'il soit utile de préserver On Error....

et la ligne Fin :

merci c'est super et super rapide

la formule plus haut fonctionne très bien, mais je viens de constater que lorsque je mets une protection avec un mot de passe pour protéjer une partie de la feuille et que je clic sur le lien hypertexte le coloriage ne se fait pas