Copier valeurs si une condition est remplis

Bonjour, je suis en train de faire de faire une feuille excel, mais je n'arrive pas à faire ce que je veux. je connais peu le vba. J'aimerais bien avoir de 'aide de votre part

voir fichier ci-joint.

Pour les colonnes B, E, H et suivante si j’aurais d’autres colonne, je rentre des résultats sur chaque colonne en partant du haut vers le bas. Les résultats sont « P », « M » ou « – » dans chaque cellule.

Pour les colonnes adjacentes, si une condition est remplis (3-2-1 ou 1-2-3 , soit P-M-M-P-P-P OU M-P-P-M-M-M OU P-P-P-M-M-P OU M-M-M-P-P-M), Je mets un « oui » si la condition 1-2-3 arrive ou un « YES » si la condition 3-2-1 arrive.

Jusqu’à là , c’est ok pour moi.

C’est là que j’ai besoin de votre aide :

Pour les colonnes D, G , J, j’aimerais que dès qu’il y a un « oui » ou un « yes » apparaisse, je veux que la séquence en jaune soit copier immédiatement dans la colonne adjacente à la position de la séquence en vert. Il faudrait que ca s'applique à toute les colonnes D, G et J.

Merci .

Salut Marty,

voici ton fichier.

Cela devrait être ce que tu cherches, me semble-t-il!

Private Sub Worksheet_Change(ByVal Target As Range)
'
If Target.Offset(0, 1).Column Mod 3 = 0 Then
    sColO = Chr$(64 + Target.Column)
    sColD = Chr$(66 + Target.Column)
    iCol = Target.Column + 1
    For x = Target.Row To Target.Row + 6
        If Cells(x, iCol) = "YES" Or Cells(x, iCol) = "oui" Then
            Range(sColD & x + 1 & ":" & sColD & x + 6).Value = Range(sColO & x - 5 & ":" & sColO & x).Value
        End If
    Next
End If
'
End Sub

A+