Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Colonne As Object, Ligne As Object
Set Colonne = CreateObject("Scripting.Dictionary")
Set Ligne = CreateObject("Scripting.Dictionary")
Colonne.Add 3, "": Colonne.Add 4, "": Colonne.Add 5, "": Colonne.Add 6, "": Colonne.Add 7, ""
Ligne.Add 4, "": Ligne.Add 6, "": Ligne.Add 8, "": Ligne.Add 10, "": Ligne.Add 12, "": Ligne.Add 14, ""
Ligne.Add 16, "": Ligne.Add 19, "": Ligne.Add 21, "": Ligne.Add 23, "": Ligne.Add 25, "": Ligne.Add 27, ""
Ligne.Add 29, "": Ligne.Add 31, ""
If Colonne.Exists(Target.Column) And Ligne.Exists(Target.Row) And Nom_Recettes_Selection <> "" Then
Target.Value = Nom_Recettes_Selection
Nom_Recettes_Selection = ""
Sheets("liste des recettes pioche").Activate
End If
End Sub