[Résolu] Placer une date (cellule en déroulant) à l'extérieur d'une feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.Name = "SAISIE" Then
    If Target.Address = "$E$3" Then
        Sheets("FICHE").Range("E2").Value = Sheets("SAISIE").Range("E3").Value
    End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.Name = "FICHE" Then
    If Target.Address = "$E$2" Then
        Sheets("SAISIE").Range("E3").Value = Sheets("FICHE").Range("E2").Value
    End If
End If
End Sub

col = b.Rows(3).Find(s.Range("E3").Value, , xlValues, xlWhole).Column

Sub RappelJ()
' RAPPELER pour une date précise les valeurs de Feuille BD et les placer en Feuille SAISIE
'(pour correction ou complément de saisie en feuille SAISIE)
Application.ScreenUpdating = False
Dim dt, c, col1, col2
Dim col As Integer, f As Object, s As Object, b As Object, p As Object
Dim plgAdresse As Range
Set f = Sheets("FICHE")
Set s = Sheets("SAISIE")
Set b = Sheets("BD")
Set p = Sheets("Paramètres")

'f.Unprotect ("")
's.Unprotect ("")
'b.Unprotect ("")
'p.Unprotect ("")
b.Activate 'pour éviter que le set plgAdresse plante, malgré le with b....
'Si la date n'existe pas dans paramètres on sort
With s
    Set dt = Sheets("Paramètres").Range("Date").Find(What:=s.[E3].Value)
    If Not dt Is Nothing Then
        With b
            'on recherche dans BD la colonne où se trouve la DATE RECHERCHÉE 'Sheets("SAISIE").Range("E3").Value
            'Aller recherche la position de la DATE dans la Feuille BD en ligne n° 3
    
            'sur la ligne 3 dans la Feuille BD on trouve la Date
            col = b.Rows(3).Find(s.Range("E3").Value, , xlValues, xlWhole).Column
            col1 = col - 2
            col2 = col - 1
    
            ' Récupérer les données de la ligne 7 à la ligne 45 dans les deux colonnes précédant celle de cette date
            'Plage Feuil SAISIE et Feiuil BD à adapter selon le besoin.
            Set plgAdresse = .Range(Cells(7, col1), Cells(45, col2))
            plgAdresse.Select
            plgAdresse.Copy Destination:=s.Range("C7")
            's.Range("C7").PasteSpecial (xlPasteValues) 'colle les valeurs dans SAISIES
        End With
    End If
End With
         
s.Activate 'pour revenir à la feuille saisie
'f.Protect ("")
's.Protect ("")
'b.Protect ("")
'p.Protect ("")
Application.ScreenUpdating = True
End Sub

Sub SvBD()
'Placer à la bonne date dans Feuille BD les valeurs saisies ou corrigées de SAISIE
Application.ScreenUpdating = False
Dim obj, plgAdresse$
'Sheets("SAISIE").Unprotect ("")
'Sheets("BD").Unprotect ("")

With Sheets("SAISIE")
    'on recherche la position de la date indiquée dans la feuille SAISIE en cellule E3
    Set obj = Sheets("Paramètres").Range("Date").Find(What:=.[E3].Value)
    If Not obj Is Nothing Then
        plgAdresse = "C7:E45" 'Plage Feuil SAISIE à adapter selon le besoin.
        'With .Range(plgAdresse)
            '  Sheets("BD").Range(plgAdresse).Offset(0, obj.Row * 5 - 5).Value = .Value
        'End With
        
        .Range(plgAdresse).Copy Destination:=Sheets("BD").Range(plgAdresse).Offset(0, obj.Row * 5 - 5)
        '   Sheets("FICHE").Select
        Sheets("SAISIE").Unprotect ("")
        Sheets("SAISIE").Range("C7:D45").ClearContents 'Plage à adapter si besoin
        Sheets("SAISIE").Range("E3").Select
    End If
End With
'Sheets("SAISIE").Protect ("")
'Sheets("BD").Protect ("")
Application.ScreenUpdating = True
MsgBox "Valeurs transférées en archive", vbInformation, "VALEURS ARCHIVÉES"
End Sub

col = b.Rows(3).Find(s.Range("E3").Value, , xlFormulas, xlWhole).Column

 b.Rows(3).NumberFormat = "m/d/yyyy"
            col = b.Rows(3).Find(s.Range("E3").Value, , xlValues, xlWhole).Column