Bonjour,
Oui avec ce code à placer dans la feuille concernée par ta demande.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Macro Dan le 21/11/2010 pour "olryloic@sfr.fr"
If Not Intersect(Target, Range("A1")) Is Nothing Then
Select Case Target
Case "A": Target = "Cage"
Case "B": Target = "Papillon"
End Select
End If
End Sub
Amicalement