Amélioration code

[aubelix]

Bonsoir à tous les amis du Forum. 🙂

Ma rquête est la suivante:
Comment écrire la ligne en gras et en rouge pour ne pas à avoir
mettre A150. Démarrer de A2 jusqu'à la dernière cellule non vide.

Par avance, Merci pour votre aide.
Cordialement.

Sub Ouvrir()
    On Error Resume Next
    Dim WB1 As Workbook
    Set WB1 = ThisWorkbook
    Dim wb2 As Workbook
    [COLOR=seagreen]'Selection du fichier a ouvrir : fichier où se trouve les REFERENCES à copier[/COLOR]
    fichier = Application.GetOpenFilename("Fichier XLS (*.xls),*.xls")
    Set wb2 = Workbooks.Open(Filename:=fichier)
   [COLOR=seagreen]'Copie la feuille "Feuil" et la copier dans la feuille "BD" du classeur2[/COLOR]
    Sheets("Feuil1").Copy After:=WB1.Sheets("BASE")
    wb2.Close True
    Range("A1").Select
 [COLOR=darkred][B]   [COLOR=red]Sheets("Feuil1").Range("A2 : A150").Copy[/COLOR][/B]
[/COLOR]  Sheets("BASE").Range("B2").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
                                            False, Transpose:=False
    Sheets("Feuil1").Range("B2").PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:= _
                                              False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1").Select
    Sheets("BASE").Select
    Range("A1").Select
End Sub

 

[phlaurent55]

Re : Amélioration code

Bonjour aubelix

avec ceci:

Sheets("Feuil1").Range("A2:A"& Range("A65535").End(XlUp).Row).Copy

à+
Philippe

 

[aubelix]

Re : Amélioration code

Bonsoir PhLaurent 55. 🙂

Merci pour ton aide et ta réponse.
Cordialement.