Microsoft 365 Erreur de macro

[luke3300]

Bonjour le forum,

j'ai un souci avec une macro que je voudrais utiliser pour rapatrier et concaténer le contenu de fichiers xlsx d'un dossier vers un fichier global.

Sub ImportDonnees()
Dim Chemin As String, Fichier As String
Dim Ws As Worksheet
Dim Ligne As Long

  Application.ScreenUpdating = False
  Chemin = "C:\Users\***\********\TEST\2. Mast\Datas\"
  Ligne = 5
  Fichier = Dir(Chemin & "*.xlsx")
  Do While Fichier <> ""
    With Workbooks.Open(Chemin & Fichier)
      With .Sheets(1)
    Cells.UnMerge
    End With
    .Range("A5:V" & .Range("A" & Rows.Count).End(xlUp).Row).Copy Ws.Range("A" & Ligne)
      .Close savechanges:=False
    End With
    Ligne = Ws.Range("A" & Rows.Count).End(xlUp).Row + 1
    Fichier = Dir
  Loop
End Sub

Lorsque je lance la macro, elle s'applique au 1er fichier et puis se bloque à l'endroit surligné en jaune.
Le 1er fichier xlsx est ouvert et les cellules de A1 à P1 sont sélectionnées ... ce n'est pourtant pas ce dont il s'agit dans la macro il me semble ...

Bref, je ne sais plus quoi faire.
Si l'un de vous à une idée, ce serait super sympa.
Merci
Bel après-midi.

 

[Dranreb]

Bonjour.
Un objet Workbook n'a pas de méthode Range.

 

[luke3300]

Bonjour Dranreb,
Merci pour ton temps.
Mais que dois-je faire alors?

 

[Dranreb]

Veiller à ce que la variable du bloc With en cours soit un objet Worksheet.
Peut être mettre plus bas le 1er End With puisque la variable du bloc With interne en est bien un.

 

[luke3300]

Bonjour le forum, Dranreb,
C'est en ordre, merci et bon dimanche ;-)