Tri aléatoire de noms dans une colonne avec les zéros en dessous

Bonjour

je cherche une macro ou la solution pour faire un tri aléatoire dans une colonne avec les zéros en dessous

J'ai essayé avec le tri de A à Z pour tester mais les zéros reste en dessus

Mes connaissances en VBA sont faibles

Merci pour votre aide

Ci-joint un modèle

Sub MacroTri64A()
     Dim Arr

     Arr = Evaluate("if(Tableau1[Noms]=0,"""",tableau1[noms])")     'matrice avec des éléments vides pour les cellules "zéro"

     With Sheets("33 à 64 équipes").Range("BM9")     'première cellule
          .Resize(100).ClearContents         'RAZ 100 cellules
          With .Resize(UBound(Arr))          'plage
               .Value = Arr                  'coller la matrice
               .Sort .Range("A1"), xlAscending, Header:=xlNo     'trier, les cellules vides seront au bout
          End With
     End With

End Sub

Bonjour

Fonctionne mais peut on faire un tri aléatoire

Merci

oui, comme j'ai fait dans l'autre site

Merci a vous