XL 2016 VBA pour sélectionner une plage de cellule à la dernière cellule vide

[Anto35200]

Bonjour,

Je souhaiterai à partir du fichier « Banque » qu’une macro ouvre le fichier « Extraction relevé bancaire » et sélectionne toute la plage de la colonne A à U et jusqu’à la dernière cellule vide (il se peut que ce fichier comporte plus de 10 000 lignes).

Une fois cette sélection faite, copie et colle cette plage dans le fichier « Banque » à la feuille « Relevé ».



Il y un déjà un début de macro, mais je ne sais pas comment sélectionner la plage voulue.

 

[Dranreb]

Bonjour.

Sub Macro2()
   Dim WBkExt As Workbook, NomFichier As Variant
   NomFichier = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xlsm")
   If VarType(NomFichier) = vbString Then
      Set WBkExt = Workbooks.Open(NomFichier)
      Feuil2.Cells.ClearContents
      WBkExt.Worksheets(1).UsedRange.Copy Destination:=Feuil2.[A1]
      'WBkExt.Close SaveChanges:=False
      End If
  End Sub

 

[Anto35200]

Bonjour Dranreb,

Merci beaucoup !