Trouver et décaler

Bonjour , j'ai besoin de votre aide pour me donner une idée de code VBA :

sur un tableau je veux trouver des valeurs et suivant le résultat donner une autre valeur soulignée à une cellule décalée à gauche.

Merci pour vos conseils

Bonjour

Une solution par formules

Cordialement

Merci pour votre solution , mais serait il possible de mettre cela en code VBA car il y aura beaucoup de travail par différents utilisateurs.

Et j'ai peur que les formules sautent.

Bonjour

Un essai avec un Code de Feuille

Cordialement

Super , mais je ne comprends pas le code .

Je ne vois pas comment est placé le X souligné.

Bonjour

Code de Feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("Z18:Z51")) Is Nothing Then
Dim MaCellule As Object
For Each MaCellule In Range("E18:E51,J18:J51,O18:O51,T18:T51")
If MaCellule.Value = Target.Value Then
Target.Offset(0, 1).Value = MaCellule.Offset(0, 3).Value
MaCellule.Offset(0, 1) = "X"
End If
Next MaCellule
End If
End Sub

Tu vois mieux?

Cordialement

Bonjour , ça y'est j'ai compris:

Le soulignement est déterminer à l'avance dans le format de cellule.

Merci pour votre aide , bonne journée