Liaisons modifiables

Re : Liaisons modifiables

Bonjour à tous,
Pas de réponses , il n'y aurait donc pas de solutions ?

J'ai essayé de faire une macro pour copier mes données mais avec ce code :

Option Explicit
Dim MaValeur As Variant




Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Range( _
"C6:C7,C10:C14,C17:C20,C23,C26,C29,C32:C33,C36:C38,G6:G20,G24:G30,K6:K13,O6:O13,K16:K20,O16:O19,K23:K25,O22:O23,O26:O27,K28:K34,O30:O33,G34:G36,O36:O38,K37:K43,O41:O45,C41,K46" _
).Select
Range("K46").Activate

Range( _
"C6:C7,C10:C14,C17:C20,C23,C26,C29,C32:C33,C36:C38,G6:G20,G24:G30,K6:K13,O6:O13,K16:K20,O16:O19,K23:K25,O22:O23,O26:O27,K28:K34,O30:O33,G34:G36,O36:O38,K37:K43,O41:O45,C41,K46,K49,O48:O52,O55" _
).Select
Range("O55").Activate
Selection.ClearContents
Application.ScreenUpdating = True

End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B6:B41,F6:F41,J6:J47,N6:N41,N44:N56")) Is Nothing Then Target.Offset(0, 1) = MaValeur
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B6:B41,F6:F41,J6:J47,N6:N41,N44:N56")) Is Nothing Then
MaValeur = Target.Value

End If
End Sub



la copie n'est possible !!!

Comment pourrais je l'éviter ?

Re : Liaisons modifiables

Oups voici le fichier :