Macro Excel

Bonjour au Forum,

Je souhaiterais une macro pour remplir la colonne A, comme indiqué dans mon fichier joint.

En vous remerciant.

Bonjour,

une essai

Pas facile d'éliminer les blancs !

=PETITE.VALEUR(SI(I2:AB2<>"";I2:AB2;9^9);ALEA.ENTRE.BORNES(1;NBVAL(I2:AB2)))

en matriciel

Bonjour Steelson, je te remercie pour cette formule, je préférerais une macro (j'ai des boucles à faire dedans)

Merci

Sub Macro1()
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        Cells(i, 1).Select
        Selection.FormulaArray = "=SMALL(IF(RC[8]:RC[27]<>"""",RC[8]:RC[27],9^9),RANDBETWEEN(1,COUNTA(RC[8]:RC[27])))"
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
    Next
End Sub

Parfait !

Merci beaucoup.