Mayday:) afficher elements et nombres éléments colonne

Merci ça marche super bien !!!
Par contre comme je suis un novice VBA j'aimerais te demander si il était possible.
D'ecrire le programme en mode SUB et end sub et d'ecrire les commentaires VBA sur chaque ligne pour bien comprendre et m'initier à cette programmation.
Est ce réalisable ?
de plus j'essayais de réaliser ce programme avec la boucle While et Wend. J'etais à des années lumieres ?
Cordialement

Public Sub OK()
Dim li As Long, co As Long, coco As Long, lili As Long, cel As Range
Set cel = ActiveCell ' recupere la cellule active
li = cel.Row         ' ligne de la cellule active
co = cel.Column      ' colonne de la cellule active
coco = co + 1        ' colonne début transposition
lili = li            ' ligne courante
' Tant que cells(lili,co) non vide et different de 99
While Cells(lili, co) <> "" And Cells(lili, co) <> 99
   Cells(li, coco).Value = Cells(lili, co)  ' copie (lili,co) en (li,coco)
   lili = lili + 1                          ' ligne suivante pour lecture
   coco = coco + 1                          ' colonne suivante pour ecriture
Wend
End Sub

Bonne suite en programmation

Je ne sais comment vous remercier.
merci pour votre aide.
Reste plus qu'a bosser un peu :)

Pour m'aguerir un peu j'essais de modifier un peu ton programme mais sans resultat:
Admettons mes valeurs se trouvent en colonne 1 j'aimerais que le programme
- Inscrit les valeurs lues en G1
- Inscrit les nombres de valeurs en G2

ccm81 j'ai essayé de modifier ton programme pour tenir compte des éléments cités au dessus mais sans resultat. Erreur 1004
Suis je vraiment loin d'y aboutir ? il y a de l'idée ?

Sheets(1).Range("pla").Clear

Dim Ligne As Long, Lecture As String


' Tant que cells(ligne,1) non vide et different de 99
While Cells(Ligne, 1) <> "" And Cells(Ligne, 1) <> 99
Lecture = Lecture & Sheets(1).Cells(Ligne, 1).Value & ", "
Ligne = Ligne + 1

Wend
Sheets(1).Cells(1, 7).Value = Lecture

Salut,
Essaie quelque chose comme ceci.

Sub classer()
    Dim i, j As Integer
    
    i = 1
    j = 7
    
    While Cells(i, 1) <> "" And Cells(i, 1) <> 99
       Cells(1, j) = Cells(i, 1)
       i = i + 1: j = j + 1
    Wend
    Cells(2, 7) = i - 1 & " valeurs"

End Sub

FRanchement vous etes vraiment au top !! réactivité. ça fait plus d'une semaine que je passe des heures à chercher ce programme!! thank you so muchThauTheme.
VBA est vraiment un outil puissant lorsqu'il est maitrisé.
Si cela ne vous derange pas j'aurais plein de d'autre questions à vous poser un peu plus tard.
Merci ThauTheme et CCM81

Bonsoir Michel
Merci pour ta reponse mais le but est justement de m'initier à VBA qui reste encore très obsscur

Re bonsoir Michel
Il y a vraiment differentes manieres d'aboutir à un meme resultat.
Michel tu dois etre très performant sur VBA mais j'ai pas du tout le niveau pour comprendre ce programme. Beaucoup de personnes m'ont dit qu'avec:
DIM, IF,then,Else,Inpoutbox,Msgbox,While et When on pouvait réaliser beaucoup de programme. Néanmoins je garde ce programme pour le travailler un peu plus tard

Bonjour
j'ai pas du tout le niveau pour comprendre ce programme...
tu pourrais pratiquement réaliser mon code avec l'enregistreur de macros en utilisant les fonctions Excel classiques que je t'ai indiqué donc sans connaitre VBA...
DIM, IF,then,Else,Inpoutbox,Msgbox,While et When on pouvait réaliser beaucoup de programme
ces personnes ont enfoncé une porte ouverte!
seulement, il faut les utiliser que lorsqu' elles sont LA solution, ce qui n'est pas forcément le cas. en tout cas, méfie toi de ce genre de personnes qui croient tout savoir et le font savoir...
cordialement

EDIt: pour apprendre VBA
https://excel.developpez.com/cours/