Affiche chaque élément de la data validation list à la fois

Bonjour, j'ai essayé de faire un programme d'automatisation macro pour mon entreprise mais je suis bloqué a une étape qui consiste a faire un macro pour afficher chaque éléments de la data validation list à la fois.

J'ai essayé de modifier un macro d'internet mais il Loop a travers tout la data validation list et il affiche pas un élément a la fois comme je voulais

Voici le macro :

Sub LoopThroughDataValidationList()

Dim rng As Range
Dim dataValidationArray As Variant
Dim i As Integer
Dim rows As Integer
'Set the cell which contains the Data Validation list
Set rng = Sheets("Sheet1 (2)").Range("J9")
'Create an array from the Data Validation formula, without creating
'a multi-dimensional array from the range
rows = Range(Replace(rng.Validation.Formula1, "=", "")).rows.Count
ReDim dataValidationArray(1 To rows)
For i = 1 To rows
dataValidationArray(i) = _
Range(Replace(rng.Validation.Formula1, "=", "")).Cells(i, 1)
Next i

'Loop through all the values in the Data Validation Array
For i = LBound(dataValidationArray) To UBound(dataValidationArray)

'Change the value in the data validation cell
rng.Value = dataValidationArray(i)
'Force the sheet to recalculate
Application.Calculate

Next i
End Sub

Merci pour votre aide.

Bonjour,

Voici un essai :

Sub LoopThroughDataValidationList()
'application.calculation = xlcalculationmanual 'si ce n'est pas déjà le cas
with Sheets("Sheet1 (2)").Range("J9")
    t = .parent.Range(Replace(.Validation.Formula1, "=", "")) 'parent est le parent de J9 (ex rng), soit la feuille "sheet1 (2)"
    For i = LBound(t) To UBound(t)
        .Value = t(i, 1) 'si .validation.formula1 contient une plage verticale
        .parent.Calculate 'recalcul de la feuille
    Next i
end with
'application.calculation = xlcalculationautomatic 'si besoin
End Sub

Cdlt,