Parcourir une colonne avec une condition

Bounjour

Je travaille depuis un temps sur une makro qui consiste à parcourir une colonne dans un Tableau en comptant le nombre des cellules qui ont la même valeur("L"), pour par la suite l'utiliser afin de répeter une opération "L" fois. voici ma macro:

Sub Makro_FBH()

Dim N As Integer

Dim FindRows As Integer

Dim L As Integer

Dim M As Integer

Dim A As Integer

L = 1

Set Tabelle = ThisWorkbook.Worksheets.Add

Tabelle.Name = "DIN 1264"

Sheets("DIN 1264").Select

M = Cells(Rows.Count, 1).End(xlUp).Row

Sheets("Tabelle2").Select

Range(" A2:AF11 ").Select

Selection.Copy

Sheets("DIN 1264").Select

Cells(M + 1, 1).Select

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=True, Transpose:=False

Sheets("DIN 1264").Select

Sheets("FBH_Tab1").Select

N = Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To N

With Sheets("FBH_Tab1")

Do While Cells(i, 3) = Cells(i + 1, 3)

L = L + 1

i = i + 1

Loop

End With

Sheets("DIN 1264").Select

M = Cells(Rows.Count, 8).End(xlUp).Row

Sheets("Tabelle2").Select

Range(" A18:AF21 ").Select

Selection.Copy

Sheets("DIN 1264").Select

Cells(M + 1, 1).Select

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=True, Transpose:=False

A = Cells(Rows.Count, 1).End(xlUp).Row

Sheets("DIN 1264").Select

For j = A To (L + A + 1)

Range(Cells(j, 1), Cells(j, 32)).Select

Selection.Copy

Sheets("DIN 1264").Select

Cells(j + 1, 1).Select

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=True, Transpose:=False

Sheets("DIN 1264").Select

Next j

Sheets("FBH_Tab1").Select

i = 2 + L

L = 1

Next i

End Sub

Si vous voulez bien m'aider. merci

le nombre L n'est pas exacte lorsque je fais les itérations.

Bonjour,

Présente en quelques mots le résultat que tu cherches et dis-nous aussi est-ce que la solution macro est impérative.