Salut
application.ScreenUpdating=False ' deconnecte le sintillement de l'ecran
for t=1 to 3900 'nombre de ligne
for c=1 to 256 'nombre de cellule par ligne
sheets(1).select 'feuille traitée
if cells(t,c).value=2 then 'si 2 est une valeur numerique
Rows(ActiveCell.Row).Copy
Sheets(2).Select 'feuille cible
Range('a1').End(xlDown).Offset(1, 0).Select 'selection de la derniere ligne vide
ActiveSheet.Paste
end if
next c
next t
ceci devrait aller