Première MACRO... HELP

Option Explicit

Sub NOVEMBRE()
Dim wA As Worksheet, wN As Worksheet, i As Long, r As Long, c As Long

    Set wA = Worksheets("ANNUEL"): Set wN = Worksheets("NOVEMBRE")
    r = wN.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 24 To 9010
        If wA.Cells(i, 19) = 11 Then
            r = r + 1
            wA.Range(wA.Cells(i, 1), wA.Cells(i, 18)).Copy Destination:=wN.Cells(r, 1)
        End If
    Next i
    
End Sub

'a placer une fois en tête de module, oblige à déclarer ensuite les variables (les dim as), non obligatoire mais fortement recommandé pour la clarté, pour éviter les fautes de frappes...
Option Explicit

Sub NOVEMBRE()
'déclaration des variables wA et wN représenteront des feuilles, les autres des nombres entiers courts
Dim wA As Worksheet, wN As Worksheet, i As Long, r As Long, c As Long
    'les feuilles étant des objets on les initialise avec l'instruction Set
    Set wA = Worksheets("ANNUEL"): Set wN = Worksheets("NOVEMBRE")
    'Pour obtenir le nombre r, on se place en dernière cellule de la colonne A (Cells(Rows.Count, 1)) de la feuille wN et on remonte jusqu'à la 1ere cellule non vide (End(xlUp)). On prend la valeur de la ligne correspondante (Row)
    r = wN.Cells(Rows.Count, 1).End(xlUp).Row
    'Début d'une boucle variant de 24 à 9010
    For i = 24 To 9010
        'Si la cellule S ligne i de la feuille wA vaut 11 alors
        If wA.Cells(i, 19) = 11 Then
            'r augmente de 1 (=1ère ligne vide de wN d'après la définition de r)
            r = r + 1
            'copier la plage (dans wA) allant de A ligne i jusque R ligne i et la coller en feuille wN en A ligne r
            wA.Range(wA.Cells(i, 1), wA.Cells(i, 18)).Copy Destination:=wN.Cells(r, 1)
        End If
    'augmenter i de 1 et revenir en début de boucle si i < 9011
    Next i
   
End Sub

'Remarque:  Votre idée 'for each cell in' n'est pas moins bonne, je suis juste plus habitué comme ça