Copier coller if isnumeric

[Simons]

Salut,

Un p'ti code SVP....

J'ai une 50éne d'onglets et je souhaite faire un copier coller sur un nouveau classeur des lignes dont la première colonne a une valeur numérique.
Je vous ai mis un exemple ca parle plus.
Merci d'avance [file name=Exemple_20060427152449.zip size=1685]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Exemple_20060427152449.zip[/file]

 

[Bernard_XLD]

Bonjour Simons

ce code copiera les lignes des feuille de la 1 à l'avant dernière sur la dernière feuille

Cordialement, A+

Sub Macro1()
Dim Compteur As Integer, Der_Ligne As Long
ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count).Range('A4:C65536').ClearContents
For Compteur = 1 To ActiveWorkbook.Sheets.Count - 1
    Der_Ligne = ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count).Range('A65536').End(xlUp).Offset(1, 0).Row
    If Der_Ligne < 4 Then Der_Ligne = 4
    ActiveWorkbook.Sheets(Compteur).Columns('A:A').SpecialCells(xlCellTypeConstants, 1).EntireRow.Copy _
    Destination:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count).Range('A' & Der_Ligne)
Next Compteur
End Sub

 

[Simons]

Testé et approuvé B)
Merci Yeahou.