Permuter des colonnes si une condition est remplie

Bonjour à toutes et à tous,

Je ne trouve pas le moyen de permuter les valeurs de deux colonnes si une condition est respectée.

Le principe c'est de dire que si la colonne BG contient dans l'une de ses cellules le terme "comptable" il faut donc permuter les valeurs des cellules de la même ligne et de colonnes "BF" et "N".

Je vous remercie par avance.

Salut amayas,

à adapter selon variables à inverser et colonnes désirées...

Ecris "Comptable" en colonne [A].

Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim iRow%, sFlag$
'
Application.EnableEvents = False
If Not Intersect(Target, Columns(1)) Is Nothing Then
    If Target = "Comptable" Then
        iRow = Target.Row
        sFlag = Cells(iRow, 2)
        Cells(iRow, 2) = Cells(iRow, 3)
        Cells(iRow, 3) = sFlag
    End If
End If
Application.EnableEvents = True
'
End Sub

A+

Je te remercie pour votre retour.

J'ai essayé mais je ne sais pas pourquoi ça ne veut pas donner de résultats donc je me suis dit que je pouvais faire autrement et une aide me serait bien plus qu'utile.

L'idée consiste à dire que si une cellule de la colonne "BG" contient le terme "Comptable", copier la cellule de la même ligne et de colonne "BF", coller le contenu copié dans la cellule de la même ligne et de colonne "N" et mettre la valeur "0" dans la cellule de la colonne "BF".

Je vous remercie infiniment.