non si je reclique dans la cellule F la couleur verte doit disparaitre et la couleur G apparaitre.
Heu pas sur d'avoir compris là. c'est pas la couleur F qui doit apparaitre ?
Edit : essayez en modifiant le code comme ceci
' Si choix cellule dans colonne F
If Not Intersect(Target, Sh.Range("F:F")) Is Nothing Then
With Target
If .Interior.Color <> 3243501 Then .Interior.Color = 3243501 'orange
If .Offset(0, 1).Interior.Color = 4697456 Then .Offset(0, 1).Interior.Color = xlNone 'vert
End With
End If
' Si choix cellule dans colonne G
If Not Intersect(Target, Sh.Range("G:G")) Is Nothing Then
With Target
If .Interior.Color <> 4697456 Then .Interior.Color = 4697456 'vert
If .Offset(0, -1).Interior.Color = 3243501 Then .Offset(0, -1).Interior.Color = xlNone 'orange
End With
End If