Utiliser un objet "worksheet" selon le choix d'un "Select Case"

• Quel est le format de la date ? Est-il toujours le même tant dans l'onglet Marketing que dans les autres ?
• Dans quelle colonne de l'onglet correspondant à la maturité doit-on chercher la date ?
• Dans quelle colonne de l'onglet correspondant à la maturité doit-on chercher le taux 1 ?
• Dans quelles colonnes se trouvent les taux 2 et 3 ?

Private D As Date 'déclare la variable D (date)
Private O2 As Worksheet 'déclare la variable O2 (Onglet 2)

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet (Marketing)
Dim CL2 As Workbook 'déclare la variable CL2 (CLasseur 2)

Set CL2 = Workbooks("classeur2.xlsx") 'définit le classeur CL2 (extension à définir/vérifier !)

If Target.Row <= 6 Then Exit Sub 'si le changement a lieu avant la ligne 7, sort de la procédure
Select Case Target.Column 'agit en fonction de la colonne de la cellule éditée
    Case 1 'cas 1 (=colonne A)
        d = Target.Value 'définit la date d
    Case 2 'cas 2 (=colonne B)
        On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
        Set O2 = CL2.Sheets(Target.Value) 'définit l'onglet O2 (génère une erreur si cet onglet n'existe pas)
        If Err <> 0 Then 'condition : si une erreur a été générée
            Err.Clear 'supprime l'erreur
            MsgBox "L'onglet " & Target.Value & " n'existe pas ! Veuillez retaper la maturité." 'message
            Target.ClearContents 'efface le contenu de la cellule en colonne B
            Target.Select 'sélectionne la cellule en colonne B
            Exit Sub 'sort de la procédure
        End If 'fin de la condition
        On Error GoTo 0 'annule la gestion des erreurs
    Case 3 'cas 3 (=colonne C)
        If d <> 0 And Not O2 Is Nothing Then 'condition : si la date n'est pas nulle et si O2 existe
            Set R = O2.Columns(1).Find(d, , xlValues, xlWhole) 'recherche la date d dans la colonne 1 de l'onglet O2 (à adapter)
            If Not R Is Nothing Then
                '... attendant tes réponses
            End If
            'target.Offset(0,1).Value=...
            'target.Offset(0,2).Value=...
        End If
End Select
End Sub

Sub Test()

Dim wbExcel As Workbook 'Classeur Excel
Dim wsExcel As Worksheet 'Feuille Excel
Dim s As String
Dim lo As Integer
 ' pour qu'il commence de remplir le tableau du classeur2 à partir de la cellule vide de la colonne F 
    lo = ThisWorkbook.ActiveSheet.Range(Range("f6"), Range("f6").End(xlDown)).Count
    lo = lo + 6
    s = ThisWorkbook.ActiveSheet.Range("C", lo).Value
 
    'Correspond au classeur2 (qui doit être ouvert !)
    Set wbExcel = Workbooks("classeur2.xls")
 
    Select Case s
 
        Case "52s"
            Set wsExcel = wbExcel.Worksheets("52 W")
        Case "2A"
            Set wsExcel = wbExcel.Worksheets("2 ans")
        Case "5A"
            Set wsExcel = wbExcel.Worksheets("5 ans")
        Case "10A"
            Set wsExcel = wbExcel.Worksheets("10 ans")
        Case "15A"
            Set wsExcel = wbExcel.Worksheets("15 ans")
        Case "20A"
            Set wsExcel = wbExcel.Worksheets("20 ans")
        Case "30A"
            Set wsExcel = wbExcel.Worksheets("30 ans")
 
    End Select
 
 wsExcel.Range("b1").Value= ThisWorkbook.ActiveSheet.Range("A",lo).Value
 ' Cette étape c'est pour la recherche du taux2 et taux3 dans classeur2
Dim l As Integer
l = wsExcel.Range(wsExcel.Range("a14"), wsExcel.Range("a14").End(xlDown)).Count
Dim aa As Double
Dim bb As Double
Dim a As Integer
Dim b As Integer
Dim cost As Boolean
cost = False
Dim r As String
r = Range("H", lo)
If Mid(r, Len(r), 1) = "%" Then
r = Mid(r, 1, Len(r) - 1) ' Ici c'est seulement pour ajuster l'écriture du taux 1 dans classeur1
r = r / 100
End If

' Copier les taux2 et taux3 qque j'ai trouvé dans le tableau du classeur1
Dim i  As Integer
For i = 1 To l
If wsExcel.Range("a" & 13 + i).Value = r Then
aa = wsExcel.Range("c" & 13 + i).Value
bb = wsExcel.Range("d" & 13 + i).Value

cost = True
i = l + 1
End If
Next
If cost = False Then
MsgBox ("Verifier le taux1 que vous avez saisit")
Else
wsExcel.Range("f" & lo).Value = aa
wsExcel.Range("g" & lo).Value = bb
End If
End Sub

• Tu ouvres les deux classeurs
• Tu actives le Classeur1 et l'onglet Marketing
• Tu tapes une date valide dans la colonne A
• Tu tapes la maturité dans la colonne C. Attention ! Elle doit correspondre exactement au nom de l'onglet du Classeur2 (soit tu renommes les onglets, soit tu tapes le même nom).
• Tu tapes le Taux 1 dans la colonne H et...

Public D As Date 'déclare la variable D (Date)
Public O2 As Worksheet 'déclare la variable O2 (Onglet 2)
Public TC As Variant 'déclare la variable TC (Tableau de Cellules)

Private TEST As Boolean 'déclare la variable TEST

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet (Marketing)
Dim CL2 As Workbook 'déclare la variable CL2 (CLasseur 2)
Dim I As Integer 'déclare la variable I (Incrément)

If TEST = True Then Exit Sub 'si TEST est [Vrai], sort de la procédure
If Target.Cells.Count > 1 Then Exit Sub 'si plusieurs cellules sélectionnées, sort de la procédure
If Target.Row <= 5 Then Exit Sub 'si le changement a lieu avant la ligne 6, sort de la procédure
On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
Set CL2 = Workbooks("classeur2.xlsx") 'définit le classeur CL2 (génère une erreur si ce classeur n'est pas ouvert)
If Err <> 0 Then 'condition : si une erreur a été générée
    Err.Clear 'supprime l'erreur
    MsgBox "Le classeur " & Chr(34) & "classeur2.xlsx" & Chr(34) & " n'est pas ouvert ! Veuillez l'ouvrir." 'message
    TEST = True 'définit la variabler TEST
    Target.ClearContents 'efface le contenu de la cellule en colonne A
    Target.Select 'sélectionne la cellule en colonne A
    TEST = False 'réinitialise la variable TEST
    Exit Sub 'sort de la procédure
End If 'fin de la condition
On Error GoTo 0 'annule la gestion des erreurs
Select Case Target.Column 'agit en fonction de la colonne de la cellule éditée
    Case 1 'cas 1 (=colonne A)
        If Not IsDate(Target.Value) = True Then
            MsgBox "Date non valide !Veuillez recommancer."
            TEST = True 'définit la variabler TEST
            Target.ClearContents 'efface le contenu de la cellule en colonne A
            Target.Select 'sélectionne la cellule en colonne A
            TEST = False 'réinitialise la variable TEST
            Exit Sub 'sort de la procédure
        End If
        D = Target.Value 'définit la date D
        Target.Offset(0, 2).Select 'sélectionne la celllue en colonne C
    Case 3 'cas 2 (=colonne C)
        On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
        Set O2 = CL2.Sheets(Target.Value) 'définit l'onglet O2 (génère une erreur si cet onglet n'existe pas)
        If Err <> 0 Then 'condition : si une erreur a été générée
            Err.Clear 'supprime l'erreur
            MsgBox "L'onglet " & Chr(34) & Target.Value & Chr(34) & " n'existe pas ! Veuillez retaper la maturité." 'message
            TEST = True 'définit la variabler TEST
            Target.ClearContents 'efface le contenu de la cellule en colonne C
            Target.Select 'sélectionne la cellule en colonne C
            TEST = False 'réinitialise la variable TEST
            Exit Sub 'sort de la procédure
        End If 'fin de la condition
        On Error GoTo 0 'annule la gestion des erreurs
        'définit le tableau de cellules TC (le tableau dans l'onglet correspondant à la maturité)
        TC = O2.Range("A13").CurrentRegion.Resize(, 4)
        O2.Range("B1").Value = D 'renvoie la date D dans la cellue B1 de l'onglet O2
        Target.Offset(0, 5).Select 'sélectionne la celllue en colonne H
    Case 8 'cas 8 (=colonne H)
        If Not O2 Is Nothing Then 'condition 1 : si l'onglet O2 existe
            For I = 2 To UBound(TC, 1) 'boucle sur toutes les lignes I du tableau de cellues TC (en partant de la seconde)
                'condition 2 : si la valeur du taux 1 est égale à la valeur ligne I colonne 1 de TC
                If Target.Value = TC(I, 1) Then
                    Target.Offset(0, -2).Value = TC(I, 3) 'récupère en colonne F la valeur ligne I colonne 3 de TC
                    Target.Offset(0, -2).NumberFormat = "0.000%" 'format de la cellule
                    Target.Offset(0, -1).Value = TC(I, 4) 'récupère en colonne G la valeur ligne I colonne 4 de TC
                    Target.Offset(0, -1).NumberFormat = "0.00000000%" 'format de la cellule
                    TEST = False 'réinitialise la variable TEST
                    D = 0 'initialsie la date D
                    Set O2 = Nothing 'vide la variable O2
                    Erase TC 'efface le tableau de cellules TC
                    Cells(Target.Row + 1, 1).Select 'sélectionne la première cellule de la ligne en-dessous
                    Exit Sub 'sort de la procédure
                End If 'fin de la condition 2
            Next I 'prochaine ligne de la boucle
        End If 'fin de la condition 1
End Select 'fin de l'action en fonction de la colonne d ela cellule éditée
End Sub

• Pour l'ordre : pas sûr que ça marche car je n'ai pas testé... Teste et tu me diras après (c'est couillon de poser la question sans avoir testé toi-même)... Si cela ne marche pas et te pose un problème, on peut remplacer la méthode et mettre un bouton (tu me diras)...
• Excel offre la possibilité d'utiliser ce que l'on appelle des Macros Événementielles. Comme le nom l'indique, elles réagissent automatiquement à certains événements (Change, SelectionChange, Calculate, Activate, etc.) et ne sont disponibles que dans certains composants (feuilles et Thisworkbook). Dans ton cas, j'ai utilisé la procédure Change dans le composant Feuil1(Marketing). Chaque fois que tu édites/modifies/effaces une cellule de cet onglet la procédure Change est lancée. Comme je t'ai dit plus haut, si cela ne te convient pas, on peut remplacer par un bouton. Pour le reste, fait l'effort de lire les commentaires et tu comprendras mieux. N'oublie pas, quand tu as besoin d'aide sur un mot clé que tu ne comprends pas, de le sélectionner et d'appuyer sur la touche [F1]...
• Tu peux recopier dans n'importe quel module standard mais il faut que tu le fasses complètement en haut (les premières lignes du module). Éventuellement sous Option Explicit si tu l'utilises...
• Pas de problèmes avec un classeur .xls. J'ai pas testé mais ça devrait marcher.

Private Sub CommandButton1_Click() 'bouton "Taux"
Dim TD As Variant 'déclare la variable TD (Tableau des Données)
Dim CL2 As Workbook 'déclare la variable CL2 (CLasseur 2)
Dim I As Integer 'déclare la variable I (Incrément)
Dim D As Date 'déclare la variable D (Date)
Dim O2 As Worksheet 'déclare la variable O2 (Onglet 2)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim J As Integer 'déclare la variable J (incrément)

ActiveCell.Select 'enlève le focus au bouton
Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
TD = Range("A6:A" & Range("A" & Rows.Count).End(xlUp).Row).Resize(, 8) 'définit le tableau de données TD
On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
Set CL2 = Workbooks("classeur2.xlsx") 'définit le classeur CL2 (génère une erreur si ce classeur n'est pas ouvert)
If Err <> 0 Then 'condition : si une erreur a été générée
    Err.Clear 'supprime l'erreur
    MsgBox "Le classeur " & Chr(34) & "classeur2.xlsx" & Chr(34) & " n'est pas ouvert ! Veuillez l'ouvrir." 'message
    Exit Sub 'sort de la procédure
End If 'fin de la condition
On Error GoTo 0 'annule la gestion des erreurs

For I = 1 To UBound(TD, 1) 'boucle 1 : sur toutes les ligne I du tbaleau de données TD
    If IsDate(TD(I, 1)) = False Then 'condition : si la date en ligne I colonne 1 de TD n'est pas valide
        MsgBox "Date non valide !Veuillez recommencer." 'message
        Cells(I + 5, 1).ClearContents 'efface le contenu de la cellule correspondante en colonne A
        Cells(I + 5, 1).Select 'sélectionne la cellule correspondante en colonne A
        Exit Sub 'sort de la procédure
    End If 'fin de la condition
    D = TD(I, 1) 'définit la date D
    
    On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
    Set O2 = CL2.Sheets(TD(I, 3)) 'définit l'onglet O2 (génère une erreur si cet onglet n'existe pas)
    If Err <> 0 Then 'condition : si une erreur a été générée
        Err.Clear 'supprime l'erreur
        MsgBox "L'onglet " & Chr(34) & Target.Value & Chr(34) & " n'existe pas ! Veuillez retaper la maturité." 'message
        Cells(I + 5, 3).ClearContents 'efface le contenu de la cellule correspondante en colonne C
        Cells(I + 5, 3).Select 'sélectionne la cellule correspondante en colonne C
        Exit Sub 'sort de la procédure
    End If 'fin de la condition
    On Error GoTo 0 'annule la gestion des erreurs
    
    TC = O2.Range("A13").CurrentRegion.Resize(, 4) 'définit le tableau de cellules TC
    O2.Range("B1").Value = D 'renvoie la date D dans la cellue B1 de l'onglet O2
    For J = 2 To UBound(TC, 1) 'boucle 2 : sur toutes les lignes J du tableau de cellules TC (en partant de la seconde)
        'condition : si la valeur du taux 1 (ligne I colonne 8 de TD) est égale à la valeur ligne J colonne 1 de TC
        If TD(I, 8) = TC(J, 1) Then
            Cells(I + 5, 6).Value = TC(J, 3) 'récupère en colonne F la valeur ligne J colonne 3 de TC
            Cells(I + 5, 6).NumberFormat = "0.000%" 'format de la cellule
            Cells(I + 5, 7).Value = TC(J, 4) 'récupère en colonne G la valeur ligne J colonne 4 de TC
            Cells(I + 5, 7).NumberFormat = "0.00000000%" 'format de la cellule
            Erase TC 'efface le tableau de cellules TC
            Exit For 'sort de la boucle 2
        End If 'fin de la condition
    Next J 'prochaine ligne de la boucle 2
Next I 'prochaine ligne de la boucle 1
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub

• Ligne 14, remplace :

Set CL2 = Workbooks("classeur2.xlsx") 'définit le classeur CL2 (génère une erreur si ce classeur n'est pas ouvert)

Set CL2 = Workbooks("classeur3.xls") 'définit le classeur CL2 (génère une erreur si ce classeur n'est pas ouvert)

• Ligne 17, remplace :

MsgBox "Le classeur " & Chr(34) & "classeur2.xlsx" & Chr(34) & " n'est pas ouvert ! Veuillez l'ouvrir." 'message

MsgBox "Le classeur " & Chr(34) & "classeur.xls" & Chr(34) & " n'est pas ouvert ! Veuillez l'ouvrir." 'message