Merci de votre réponse,
Oui c'est pour comprendre et avancer, j'ai essayer par moi-même de reproduire ce code en inscrivant ceci:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Col As Integer
Col = Target.Column
If Col = 1 Or Col = 2 Or Col = 3 Or Col = 5 Or Col = 6 Or Col = 8 Or Col = 10 Or Col = 15 Or Col = 16 Or Col = 17 Then
Me.Range("A:C,E:F,H:J,O:Q").Copy Destination:=Sheets("Feuil2").Range("A1")
Application.CutCopyMode = False
End If
End Sub
Ce lien n'existe plus
Mais il me met ce message d'erreur:
Ce lien n'existe plus
puis:
Ce lien n'existe plus
C'est pour ca que je bloque et que j'essaie de comprendre l'erreur, et je me dis que cela vient de ma sélection de colonne.
Encore merci de prendre de ton temps.