Appliquer formule dans une case d'une autre colonne

Bonjour mesdames, messieurs,

Je souhaite appliquer une formule différente, en fonction de la case modifée à une case décallée sur l'axe horizontale. dans cet état actuel cela fonctionne très bien si l'on valide la case avec la touche entrée mais si l'on utilise tabulation ou n'importe qu'elle autre touche mon offset ne gère pas bien. Connaissez vous un moyen d'obtenir ce que je souhaite ?

Merci d'avance pour vos idées

Private Sub Worksheet_Change(ByVal Target As Range)
Formule_RGE =blabla
Formule_RLE =blablabla
Formule_FIAB =blablablabla

If Not Intersect(Target, Range("AD:AD")) Is Nothing Then

    If Target <> "" Then
        ActiveCell(0, -1).Select
        ActiveCell.FormulaR1C1 = Formule_RGE
        ActiveCell.Value = ActiveCell.Value
        ActiveCell(1, 0).Select
        ActiveCell.FormulaR1C1 = Formule_RLE
        ActiveCell.Value = ActiveCell.Value
    End If
End If

If Not Intersect(Target, Range("AE:AE")) Is Nothing Then

    If Target <> "" Then
        ActiveCell(0, -1).Select
        ActiveCell.FormulaR1C1 = Formule_FIAB
        ActiveCell.Value = ActiveCell.Value
    End If
End If

If Not Intersect(Target, Range("AG:AG")) Is Nothing Then

    If Target <> "" Then
        ActiveCell(0, -5).Select
        ActiveCell.FormulaR1C1 = Formule_RLE
        ActiveCell.Value = ActiveCell.Value
    End If
End If

If Not Intersect(Target, Range("AI:AI")) Is Nothing Then

    If Target <> "" Then
        ActiveCell(0, -7).Select
        ActiveCell.FormulaR1C1 = Formule_RLE
        ActiveCell.Value = ActiveCell.Value
    End If
End If

End Sub

Bonjour,

utilise

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

mais si le target qui t'intéresse est la cellule que tu viens de quitter, alors tu peux t'inspirer de l'exemple que tu trouveras ici

https://www.excel-pratique.com/fr/vba/evenements_feuille.php