Ecrire au dessus automatiqement?

J'aimerais que quand j'écris "ICI ou H" dans une cellule que celle juste au dessus intègre le chiffre 9, merci pour votre aide. (cela peut être n'importe ou sur la feuille)

Bonjour DJ FA,

Je n'ai pas regardé ton fichier mais ce code devrait faire l'affaire. Mets-le dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Or Target.Row = 1 Then Exit Sub
    If Target = "ICI ou H" Then Target.Offset(-1) = 9
End Sub

Il me le faudrait pour le classeur. et soit pour ICI ou H, merci

Pour le classeur j'ai trouvé :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Count > 1 Or Target.Row = 1 Then Exit Sub
        If Target = "H" Then Target.Offset(-1) = 9
End Sub

Mais je n'ai pas encore trouvé pour lui dire avec ICI ?

Il te suffit d'ajouter la condition :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Count > 1 Or Target.Row = 1 Then Exit Sub
        If Target = "H" Or Target = "ICI" Then Target.Offset(-1) = 9
End Sub