Explication sur formule et regroupement de colonnes

Bonjour,

Je viens de taper un code vba qui fait bien son taffe même si on pourrait l'amélioré encore

Sub total_logue()

 Dim col As Integer, a As Long, lignes As Integer

 lignes = 11

 For col = 3 To 9 Step 2 'colonnes
    For a = 1 To 7 'lignes
        If Cells(a, col).Value <> "" Then
            Cells(lignes, 9) = Cells(a, col).Value
            lignes = lignes + 1
         End If
    Next a
 Next col
End Sub

ce qui donne ça sur la colonne I

Je voudrais savoir si il était possible de l'adapter en formule avec DECALER et NBVAL?

Le truc c'est que je suis super nul en formule sa veut pas rentrer dans le cerveau avec les imbrications de truc sa m'a saouler en deux min

J'ai regardé pas mal de sujet sur le forum sur ça, mais ça ne rentre toujours pas

Si quelqu'un pouvait aider à adapter le code en formule et donner une explication par étape, que ça finisse un jour par rentrer pour me passer de VBA pour ce que je peux faire en formule

Merci,

Bonjour

Avec un fichier EXCEL peut-être?

Parce que sur les images, les formules sont difficiles.

Cordialement