Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [A1]) Is Nothing Then
If Target = "OUI" Then Sheets("EXT ICP").Select
End If
End Sub
Le "Retour" se fait par lien hypertexte.
( Par contre A1 ne doit pas être le résultat d'une formule par cette méthode mais par une validation dans la cellule par Entrée.)
Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [A1]) Is Nothing Then
If Target = "OUI" Then Sheets("EXT ICP").Select
End If
End Sub
Le "Retour" se fait par lien hypertexte.
( Par contre A1 ne doit pas être le résultat d'une formule par cette méthode mais par une validation dans la cellule par Entrée.)