Bonjour à tous,

Débutant en VBA, je rencontre un souci qui est le suivant:

J'ai un tableau de données comportant 6 colonnes (N°, Ref, Nb, Base, Hauteur, Long) avec un nombre de ligne indéterminé puisqu'il provient de la récupération de calcul excel via la vba.
Ce tableau est trié par ordre croissant de la colonne "Base", puis "Hauteur", puis "long".

A la suite de ma VBA créé, j'aimerais copier les plages de cellule de manière à avoir une plage de cellule par Hauteur différente.
C'est cette partie qui me bloque puisque je n'est pas la possibilité de connaître le nombre de hauteur différente ni le nombre de ligne présentant la même hauteur.
Je n'est réussi qu'a bricoler des codes, récupéré sur internet, permettant de réaliser l'action que je veux faire mais avec une plage que j'ai lu (il fonctionne):

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub Bouton3_Clic()
 
Dim XLApp As New Excel.Application
Dim XlBook As Workbook
Dim monfichier, chemin As String
 
monfichier = Range("calcul!c4") & "_ebras_" & Range("calcul!e5") & "_x_" & Range("calcul!f5") & ".csv"
chemin = "Mon Chemin d'accès"
Set XlBook = XLApp.Workbooks.Add
 
'copie de la plage que j'ai lu
Worksheets("calcul").Range("b4:g5").Copy
    With XlBook.Worksheets("feuil1")
        .Range("a1").PasteSpecial Paste:=xlPasteValues
    End With
Application.CutCopyMode = False
 
XlBook.Sheets("Feuil2").Delete
XlBook.Sheets("Feuil3").Delete
XlBook.SaveAs Filename:=(chemin & monfichier)
XlBook.Close savechanges:=False
 
End Sub
Merci d'avance
Loïc