boucle ds une macro

[andrea]

Bonjour à tous

Encore un petit soucis que j'espere vous resoudrais sans probleme :
Comment faire apres avoir filtrée une colonne pour que cette macro '
ActiveCell.Offset(0, 21).Range('A1').Select
ActiveCell.FormulaR1C1 = 'b'
ActiveCell.Offset(0, 0).Rows('1:1').EntireRow.Select
Selection.Copy
Workbooks.Open Filename:= _
'\\\\Stargate\\Labo2\\MICROBIOLOGIE\\base de données\\essai macro\\bd1.xls'
Sheets('bd').Select
ActiveCell.Rows('1:1').EntireRow.Select
ActiveSheet.Paste
Sheets('bull').Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Close
ActiveCell.Offset(1, 0).Range('A1').Select
End Sub

ne s'arrete que sur la derniere ligne filtrée ou la premiere ligne vide?

Encore merci pour vos effort
a vous lire
Andrea