Re,
Cette macro évènementielle à mettre dans la feuille(VBAProject) "matrice saisie pour commande". Adapte le nom de la feuille qui contient ta cellule (G5) de destination de résultat au lieu de "Feuil1" dans la macro. Teste en modifiant D9 et/ou I5 de la feuille "matrice saisie pour commande" et vérifie la valeur de G5 qui devrait normalement se modifier au fur et à mésure.
Private Sub Worksheet_Change(ByVal Target As Range)
'Désactive l'évènement
Application.EnableEvents = False
'modification de la cellule I5
If Range("I5") = "ART ET ARCHEOLOGIE" Then
Sheets("Feuil1").Range("G5") = Range("D9")
Else
Sheets("Feuil1").Range("G5") = ""
End If
'Réactive l'évènement
Application.EnableEvents = True
End Sub
PS : la prochaine fois, merci de nous envoyer un fichier de test