Liste adaptative personnalisée multiples critères

=INDIRECT(A1)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("A3:F8")) Is Nothing Then
        If Application.CountIf(Worksheets("Listes").Range("Mois"), Target) = 0 Then
            Application.EnableEvents = False
            If Len(Target) <> 3 Then
                Target = ""
                Target.Select
                MsgBox "Saisie incorrecte"
            Else
                Target = UCase(Target)
            End If
            Application.EnableEvents = True
        End If
    End If
End Sub

If Not Application.Intersect(Target, Range("Tableau_mois")) Is Nothing Then