Selection

Private Sub UserForm_Initialize() 'à l'initialisation de l'Userform
With Worksheets("Listes") 'prend en compte l'onglet "Listes"
    Me.ComboBox1.List = .Range("A2:A13").Value 'alimente la ComboBox1
    Me.ComboBox2.List = .Range("B2:B" & .Range("B" & Application.Rows.Count).End(xlUp).Row).Value 'alimente la ComboBox2
End With 'fin de la prise en compte de l'onlet "Listes"
End Sub

Private Sub CommandButton1_Click() 'bouton "Valider"
Dim R As Range 'déclare la variable R (Recherche)
Dim PA As String 'déclare la variable PA (Première Adresse)
Dim PL As Range 'déclare la variable PL (PLage)

With Sheets("Données") 'prend en compte l'onglet "Données"
    Set R = .Columns(1).Find(Me.ComboBox1.Value, , xlValues, xlWhole) 'définit la recherche R (Recherche la valeur entière de la ComboBox1 dans la colonne 1 (=A) de l'onglet
    If Not R Is Nothing Then 'condition : si il existe au moins une occurrence
        PA = R.Address 'définit l'adresse PA de la première occurrence trouvée
        Do 'exécute
            If CStr(R.Offset(0, 1).Value) = Me.ComboBox2.Value Then 'si la valeur de la cellule en colonne B de l'occurrence trouvée (convertie en texte) est égale à la valeur de la ComboBox2
                Set PL = R.CurrentRegion 'définit la plage PL
                Set PL = PL.Offset(1, 0).Resize(PL.Rows.Count - 1, PL.Columns.Count) 'redéfinit la plage PL (sans la première ligne avec la date)
                PL.Select 'sélectionne la plage PL
            End If 'fin de la condition
            Set R = .Columns(1).FindNext(R) 'redéfinit la recherche R (occurrence suivante)
        Loop While Not R Is Nothing And R.Address <> PA 'boucle tant qu'il existe de nouvelles occurrences ailleurs qu'en PA
    End If 'fin de la condition
End With 'fin de la prise en compte de l'onlet "Données"
Unload Me 'vide et ferme l'UserForm
End Sub

Private Sub CommandButton2_Click() 'bouton "Annuler"
Unload Me 'vide et ferme l'UserForm
End Sub