Afficher valeur d'une cellule dans une autre en simple clic

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range
With [C12:C21] 'à adapter
  .Offset(, 1).Resize(, Columns.Count - .Column).ClearContents
  If ActiveCell = "" Or Intersect(ActiveCell, .Cells) Is Nothing Then Exit Sub
End With
With ActiveCell
  Set r = Feuil2.Cells.Find(.Value, , xlValues, xlWhole)
  If r Is Nothing Then Exit Sub
  .Offset(, 1).Resize(, Columns.Count - .Column) = _
     r(1, 2).Resize(, Columns.Count - r.Column).Value
  .EntireRow.Replace "#N/A", ""
End With
Set r = Me.UsedRange 'repositionne la barre de défilement horizontale
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range
With [C12:C21] 'à adapter
  .Offset(, 1).Resize(, Columns.Count - .Column).Clear
  If ActiveCell = "" Or Intersect(ActiveCell, .Cells) Is Nothing Then Exit Sub
End With
With ActiveCell
  Set r = Feuil2.Cells.Find(.Value, , xlValues, xlWhole)
  If r Is Nothing Then Exit Sub
  .Offset(, 1).Resize(, Columns.Count - .Column) = _
     r(1, 2).Resize(, Columns.Count - r.Column).Value
  .EntireRow.Replace "#N/A", ""
  '---mise en forme---
  Set r = Cells(.Row, Columns.Count).End(xlToLeft)
  If r.Column > .Column Then
    With Range(.Offset(, 1), r)
      .Interior.ColorIndex = 6 'jaune
      .Borders.Weight = xlThin
    End With
  End If
End With
'---repositionne la barre de défilement horizontale---
Set r = Me.UsedRange
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim dest As Range, r As Range
Set dest = [G8] 'à adapter
Application.ScreenUpdating = False
dest.Resize(, Columns.Count - dest.Column + 1).Clear 'RAZ
If ActiveCell = "" Or Intersect(ActiveCell, [C12:C21]) Is Nothing Then Exit Sub
Set r = Feuil2.Cells.Find(ActiveCell, , xlValues, xlWhole)
If r Is Nothing Then Exit Sub
'---copie les valeurs---
dest.Resize(, Columns.Count - dest.Column + 1) = _
  r.Resize(, Columns.Count - r.Column + 1).Value
dest.EntireRow.Replace "#N/A", ""
'---mise en forme---
Set r = Cells(dest.Row, Columns.Count).End(xlToLeft)
With Range(dest, r)
  .Interior.ColorIndex = 6 'jaune
  .Borders.Weight = xlThin
End With
'---repositionne la barre de défilement horizontale---
Set r = Me.UsedRange
End Sub