Bonsoir Lebreton et Sylvie,
En complément à la réponse de Sylvie, vous trouverez en pièce jointe une solution qui si j'ai bien compris le problème, devrait convenir.
=================================================
Sub extraire()
Dim TblInp As Range 'Table Entrée (Source Copy)
Dim TblOut As Range 'Table Sortie (Destination Copy)
' Effacement du contenu de la table Entrée
Set TblOut = Range('F9:G9').CurrentRegion
If TblOut.Rows.Count > 1 Then
Set TblOut = TblOut.Offset(1).Resize(TblOut.Rows.Count - 1)
TblOut.ClearContents
End If
' Copy Filtrée de la table Entrée dans la Table Sortie
Set TblInp = Range('A10').CurrentRegion
TblInp.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range('A1:A2'), _
CopyToRange:=Range('F9:G9'), Unique:=False
' Numérotation des lignes (Colonne 1 de Table Sortie)
Set TblOut = Range('F9:G9').CurrentRegion
If TblOut.Rows.Count > 1 Then
Set TblOut = TblOut.Offset(1).Resize(TblOut.Rows.Count - 1, 1)
i = 1
For Each Cel In TblOut.Cells
Cel.Value = i
i = i + 1
Next Cel
End If
End Sub
===============================================
Cordialement.
Omicron [file name=Numerotation.zip size=31561]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Numerotation.zip[/file]