Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cel As Range, Dde As String, Frn As String
'si la cellule sélectionnée n'est pas en colonne 1 (A) ou si elle est vide
'la macro se termine ici
If Target.Column > 1 Or Target = "" Then Exit Sub
'affecte la valeur de la sélection (Target=Cible) à la variable Dde
'et affecte la valeur de la cellule adjacente à droite de Target (Offset=Décalage 0 ligne, 1 colonne à droite) à la variable Frn
Dde = Target: Frn = Target.Offset(0, 1)
'les instructions suivantes, précédées d'un point, s'appliquent à la feuille dont le nom est dans la variable Frn
With Sheets(Frn)
'recherche la cellule (Cel) contenant la demande dans la colonne 1
Set Cel = .Columns(1).Find(Dde, LookIn:=xlValues)
'affiche la feuille Fournisseur
.Activate
'sélectionne la cellule contenant la demande
Cel.Select
End With
End Sub