XL 2010 UserForm, menu déroulant cascade et enrichir une base de donnée

Private Sub Worksheet_Activate()
With Sheets("Page 1")
'on définie la dernière ligne vide de la colonne "F" en partant du bas vers le Haut
DerLgn = .Cells(100, 6).End(xlUp).Row 'j'ai mis 100 (ligne de départ de la recherche de Ligne Vide) a voir
For I = 2 To DerLgn 'Boucle sur les Lignes de la plage
If Cells(I, 6) = "Billets émis après 20h Case Viaxeo" Then 'si valeur Ok ( Attention a la case de la leur cherchée)
  .Range(Cells(I, 6), Cells(I, 7)).Interior.Color = RGB(255, 164, 29) 'On colore
Else
  .Range(Cells(I, 1), Cells(I, 8)).Interior.Color = RGB(255, 255, 255) 'sinon Blanc
End If
Next I
End With
End Sub

If Cells(i, 6) = "Billets émis après 20h" & "Case Viaxeo"

Private Sub Valider_Click()
Dim StrColor$
Dim L As Integer
With Me
   IDRow = CLng(.Lbl_Analyse_S_1.Caption)
With .CmbB_Analyse 'avec ce control
    Ws_Source.Cells(IDRow, 6).Value = .List(.ListIndex, 0) 'on y colle la valeur contenue dans la Première colonne du Control
                 Tbl_Data(IDRow - 1, 6) = .List(.ListIndex, 0) 'on modifie la valeur du Tableau temporaire
End With
With .CmbB_Acteur 'avec ce control
    Ws_Source.Cells(IDRow, 7).Value = .List(.ListIndex, 1) 'on y colle la valeur contenue dans la deuxième colonne du Control
                 Tbl_Data(IDRow - 1, 7) = .List(.ListIndex, 1) 'on modifie la valeur du Tableau temporaire
End With
With .TxtB_Commentaire 'avec ce control
    Ws_Source.Cells(IDRow, 8).Value = .Text 'on y colle la valeur du Control
                 Tbl_Data(IDRow - 1, 8) = .Text 'on modifie la valeur du Tableau temporaire 
End With
End With
With Ws_Source 'avec la feuille
Select Case .Cells(IDRow, 6).Value 'On va tester la valeur de la Cellule de la Colonne 6
      Case Is = "Billets émis après 20h" 'elle est = à
       StrColor = RGB(255, 164, 29) 'on récupére la couleur
      Case Is = "Case Viaxeo" 'elle est = à
       StrColor = RGB(255, 164, 29) 'on récupére la couleur
      Case Else 'Cas ou pas de correspondance avec les deux du Dessus
       StrColor = RGB(255, 255, 255) 'on récupére la couleur
End Select
             .Range(.Cells(IDRow, 6), .Cells(IDRow, 7)).Interior.Color = StrColor 'On colore la plage correspondante avec la Couleur récupérée
End With
set StrColor=Empty
End Sub