Hi Pierre,
Right click the SheetTabView Code then copy this into that Sheet's
Code Module:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column < 4 Then Exit Sub
Range("D1").Copy
ActiveCell.PasteSpecial Paste:=xlPasteAll
End Sub

Ken Johnson