correction ou modi du code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, c As Range
Set r = Intersect(Target, Range("J11:J" & Rows.Count), Me.UsedRange)
If r Is Nothing Then Exit Sub
With Feuil1 'Codename de la feuille FGP 2014
  .[AY:BG].EntireColumn.Hidden = False 'affiche le tableau modèle
  For Each r In r 'en cas d'entrées multiples
    If IsDate(r) Then
      If IsError(Application.Match(r, .Rows(26), 0)) Then
        Set c = .Cells(27, .Columns.Count).End(xlToLeft)(0, 3)
        .[AY:BG].Copy c.EntireColumn
        c = r 'entrée de la date
      End If
    End If
  Next
  .[AY:BG].EntireColumn.Hidden = True 'masque
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim F1 As Worksheet, F2 As Worksheet, c As Range
Set F1 = Feuil2: Set F2 = Feuil3 'CodeNames des feuilles Facturation et Liste
Columns("BJ").Resize(, Columns.Count - Columns("BJ").Column + 1).Validation.Delete
Set c = Cells(26, ActiveCell.Column)
If ActiveCell.Row > 28 And IsDate(c) And ActiveCell.Interior.ColorIndex = xlNone Then
  F2.Cells.Delete 'RAZ
  With Intersect(F1.[A10].CurrentRegion, F1.[A:N])
    .Cells(2, .Columns.Count + 1) = "=J11=" & c.Value2
    .AdvancedFilter xlFilterInPlace, .Cells(1, .Columns.Count + 1).Resize(2)
    .SpecialCells(xlCellTypeVisible).Copy F2.[A1]
    .Cells(2, .Columns.Count + 1) = ""
    .AdvancedFilter xlFilterInPlace, ""
  End With
  F2.UsedRange.Columns(1).Name = "Liste"
  ActiveCell.Validation.Add xlValidateList, Formula1:="=Liste"
  F2.Rows(1).Delete
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim F1 As Worksheet, F2 As Worksheet, c As Range, t, dat As Date, i&, n&
Set F1 = Feuil2: Set F2 = Feuil3 'CodeNames des feuilles Facturation et Liste
Columns("BJ").Resize(, Columns.Count - Columns("BJ").Column + 1).Validation.Delete
Set c = Cells(26, ActiveCell.Column)
If ActiveCell.Row > 28 And IsDate(c) And ActiveCell.Interior.ColorIndex = xlNone Then
  t = Intersect(F1.[A10].CurrentRegion, F1.[A:J]) 'matrice, plus rapide
  dat = c
  For i = 1 To UBound(t)
    If t(i, 10) = dat Then n = n + 1: t(n, 1) = t(i, 1)
  Next
  F2.Columns(1).ClearContents 'RAZ
  If n Then F2.[A1].Resize(n) = Application.Index(t, , 1)
  F2.UsedRange.Name = "Liste"
  ActiveCell.Validation.Add xlValidateList, Formula1:="=Liste"
End If
End Sub

ActiveCell.Validation.Add xlValidateList, Formula1:="=Listes"

Private Sub Worksheet_SelectionChange(ByVal c As Range)  'Déplacer le bouton avec la feuille






If ActiveSheet.Name = "FGP 2014" Then
    With ActiveSheet.Shapes("CommandButton109")
     .Top = c.Top - 25
     .Left = c.Left + 150
    End With
 

    With ActiveSheet.Shapes("CommandButton15")
    .Top = c.Top - 25
    .Left = c.Left + 195
    End With
End If


Dim F1 As Worksheet, F2 As Worksheet, c1 As Range, t, dat As Date, i&, n&
Set F1 = Feuil7: Set F2 = Feuil5 'CodeNames des feuilles Facturation et Liste
Columns("BJ").Resize(, Columns.Count - Columns("BJ").Column + 1).Validation.Delete
Set c1 = Cells(26, ActiveCell.Column)
If ActiveCell.Row > 28 And IsDate(c1) And ActiveCell.Interior.ColorIndex = xlNone Then
  t = Intersect(F1.[A10].CurrentRegion, F1.[A:J]) 'matrice, plus rapide
  dat = c1
  For i = 1 To UBound(t)
    If t(i, 10) = dat Then n = n + 1: t(n, 1) = t(i, 1)
  Next
  F2.Columns(1).ClearContents 'RAZ
  If n Then F2.[A1].Resize(n) = Application.Index(t, , 1)
  F2.UsedRange.Name = "Listes"
  

  ActiveCell.Validation.Add xlValidateList, Formula1:="=Listes"

End If


End Sub

Sub Déverrouille()
Dim r As Range
Set r = [AY28:BD1582] 'plage à adapter éventuellement
Me.Unprotect "mdp" 'mot de passe à adapter
For Each r In r
  If r.Interior.ColorIndex = xlNone Then r.Locked = False
Next
Me.Protect "mdp" 'mot de passe à adapter
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim F1 As Worksheet, F2 As Worksheet, c As Range, t, dat As Date, i&, n&
Set F1 = Feuil2: Set F2 = Feuil3 'CodeNames des feuilles Facturation et Listes
Set c = Cells(26, ActiveCell.Column)
If ActiveCell.Row > 28 And IsDate(c) And ActiveCell.Interior.ColorIndex = xlNone Then
  Application.Calculation = xlCalculationManual
  Me.Unprotect "mdp" 'mot de passe à adapter
  Columns("BJ").Resize(, Columns.Count - Columns("BJ").Column + 1).Validation.Delete
  t = Intersect(F1.[A10].CurrentRegion, F1.[A:J]) 'matrice, plus rapide
  dat = c
  For i = 1 To UBound(t)
    If t(i, 10) = dat Then n = n + 1: t(n, 1) = t(i, 1)
  Next
  F2.Columns(1).ClearContents 'RAZ
  If n Then F2.[A1].Resize(n) = Application.Index(t, , 1)
  F2.[A1].Resize(IIf(n, n, 1)).Name = "Listes"
  ActiveCell.Validation.Add xlValidateList, Formula1:="=Listes"
  Me.Protect "mdp" 'mot de passe à adapter
  Application.Calculation = xlCalculationAutomatic
End If
End Sub