Private Sub LinkCopy(ByVal SourceSheet As String, SourceCell As String, TargetCol As String, ByVal TargetRow As Long)
' Copie avec liaison permettant la mise à jour en direct de la liste récapitulative
' SourceSheet : nom de la feuille Chassis Concernée
' SourceCell : référence de cellule source de la copie
' TargetCol : Colonne concernée par la recopie
' TargetRow : ligne en mise à jour sur la feuille récap
' Construction de la référence de la cellule cible et sélection
s_range = "$" & TargetCol & "$" & TargetRow
Range(s_range).Select
' Construction de la formule référence de copie avec liaison de la cellule source
s_Formula = "=" & SourceSheet & "!" & SourceCell
'application de la formule <=> copie avec liaison
ActiveCell.Formula = s_Formula
End Sub