Inversion cellule

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim s As String
If Target.Count > 1 Or Target.Column <> 4 Then Exit Sub
s = Cells(Target.Row, 2).Formula
Cells(Target.Row, 2).Formula = Cells(Target.Row, 6).Formula
Cells(Target.Row, 6).Formula = s
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 8 Then
temp = Range("B" & Target.Row)
Range("B" & Target.Row) = Range("F" & Target.Row)
Range("F" & Target.Row) = temp
End If
End Sub