Copier des colonnes d'une base de données vers d'autres feuilles

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim derlig As Long

Application.ScreenUpdating = False
derlig = Range("a" & Rows.Count).End(xlUp).Row

If Not Intersect(Target, Columns("K:K")) Is Nothing  Then
With Feuil2
Range("a2:b" & derlig).Copy = .Range("a2")
Range("i2:i" & derlig).Copy = .Range("c2")
End With
End If

If Not Intersect(Target, Columns("W:W")) Is Nothing Then
With Feuil3
Range("g2:g" & derlig).Copy = .Range("a2")
Range("k2:k" & derlig).Copy = .Range("b2")
Range("v2:v" & derlig).Copy = .Range("c2")
End With
End If
End Sub

'POUR FILTRER LES COLONNES DE TON CHOIX
'A METTRE DANS UN MODULE
Option Explicit

Sub Filtrer_Col()
Dim derlig As Long, plage as range
With ActiveSheet
  derlig = .Range("a" & Rows.Count).End(xlUp).Row
  Set plage = .Range("a1:v" & derlig)
  plage.AutoFilter Field:=Activecell.Column, Criteria1:=Activecell.Value, Operator:=xlAnd
End With
End Sub

Option Explicit
Dim derlig As Long, derlig2 As Long, i As Long, plage As Range, tablo(), tbl()

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Application.ScreenUpdating = False

  derlig2 = Range("a" & Rows.Count).End(xlUp).Row
  Set plage = Range("a1:v" & derlig2)
  plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=ActiveCell.Value, Operator:=xlAnd

Cancel = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  Application.ScreenUpdating = False
  derlig = Range("a" & Rows.Count).End(xlUp).Row

  tablo = Range("a2:i" & derlig)
  tbl = Range("g2:v" & derlig)

  On Error Resume Next

  derlig2 = Range("a" & Rows.Count).End(xlUp).Row
  Set plage = Range("a1:v" & derlig2)
  plage.AutoFilter

  If Not Intersect(Target, Columns("J:J")) Is Nothing Then
  Feuil2.Range("a2:c65536").ClearContents

  For i = 1 To UBound(tablo, 1)
  Feuil2.Cells(i + 1, "A") = tablo(i, 1)
  Feuil2.Cells(i + 1, "B") = tablo(i, 2)
  Feuil2.Cells(i + 1, "C") = tablo(i, 9)
  Next i
  End If


  If Not Intersect(Target, Columns("W:W")) Is Nothing Then
   Feuil3.Range("a2:c65536").ClearContents

  For i = 1 To UBound(tbl, 1)
  Feuil3.Cells(i + 1, "A") = tbl(i, 1)
  Feuil3.Cells(i + 1, "B") = tbl(i, 5)
  Feuil3.Cells(i + 1, "C") = tbl(i, 16)
  Next i
  End If

End Sub

Option Explicit
Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    Sheets("tableaugénéral").Range("b:c,e:e").Copy Destination:=Range("a1")
    Application.ScreenUpdating = True
End Sub

Option Explicit
' macro événementielle
Private Sub Worksheet_Change(ByVal Target As Range)
' variable déclarer
    Dim Col As Integer
    ' colonne = colonne de la cellule active
    Col = Target.Column
    ' conditions : si cellule modifiée en b, c ou e
    If Col = 2 Or Col = 3 Or Col = 5 Then
        ' colonnes b, c, e copier vers onglet nommé "Feuil2", en a1
        Me.Range("B:C,E:E").Copy Destination:=Sheets("Feuil2").Range("A1")
        ' inutile dans le cas présent
        Application.CutCopyMode = False
        ' fin des conditions
    End If
End Sub