Erreur de compilation

bonjour le forum

j'ai une macro qui me sert a extraire la ligne d'avant la ligne qui a le critere en V1.

quand je l'execute j'ai un message "erreur de compilation Sub ou Fonction non définie

N'étant pas trés doué en vba je n'arrive pas a trouver l'erreur

merci

Bonjour,

Tu poses un

With Feuil3...

mais il n'existe pas de Feuil3 dans ton classeur !

A+

[Edit] De plus il y a un "1" parasite devant le deuxième Feuil3 :

1 Feuil3...

Je ne peux pas en dire plus car tes explications ne me disent pas ce qu'est censé faire cette macro.

mais à priori une fois corrigé ces "détails" : ça compile bien ! Dire si c'est le résultat attendu est une autre affaire...

Bonjour,

Je dirais qu'il y a aussi un soucis au niveau de la déclaration des variables à confirmer avec quelqu'un d'autre.

Bonjour,

Voir ci-dessous

Cordialement

Sub Macro1()

 Dim i As Long
 Dim fin As Long
 Dim aa As Variant
 Dim bb As Variant
 Dim y As Long
 Dim a As Long

    With Worksheets(1)
        fin = .Range("A" & Rows.Count).End(xlUp).Row
        aa = .Range("A2:W" & fin)
    End With

    y = 1
    ReDim bb(UBound(aa, 2), y)
        For i = 1 To UBound(aa) - 1
            If aa(i + 1, 22) = 1 Then
                ReDim Preserve bb(UBound(aa, 2), y)
                    For a = 1 To UBound(aa, 2) - 3
                        bb(a, y) = aa(i, a)
                Next a
                y = y + 1
            End If
        Next i

    Worksheets(2).Select
    Range("A1").Resize(UBound(bb, 2), UBound(bb)) = Application.Transpose(bb)

End Sub