Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c, r, cel As Range
c = ActiveCell.Column
r = ActiveCell.Row
For Each cel In Range("Onglets")
cel.Offset(, 1) = Sheets(cel.Text).Cells(r, c) 'ou => [COLOR="Red"]Val[/COLOR](Sheets(cel.Text).Cells(r, c))
Next
With Me.Shapes("Image 2")
.Visible = (Cells(2, c) <> "" Or c = 2) And Cells(r, 1) <> ""
.Top = ActiveCell.Offset(1).Top
.Left = ActiveCell.Offset(, 1).Left
End With
End Sub