Question sur le ActiveWindow.SmallScroll et sur TCD

[xorre]

Bonjour,

après avoir utilisé un peu la fonction macro automatique, je me heurte a de petites soucis ...

Le fichier excel joint est un exemple, j'en ai une dizaine à faire mais avec un exemple concret, je saurais l'appliquer au reste !
je suis très loin de réussir a utiliser des combinaisons de fonction etc. ce qui me limite énormément :/

Actions
1 Supprimer les données B5 à H5 sur l'ensemble des lignes quelque soit le nombre de lignes
2 Supprimer les données de I6 pour l'ensemble des lignes quelque soit le nombre de lignes
3 > Fonction d'intégration des données via un fichier texte dans un répertoire spécifique
4 Selon le nouveau nombre de ligne => copier coller la fonction doublon de I5 jusqu'à la fin de la colonne
5 Modifier le TCD pour prendre en compte la nouvelle plage de données du tableau.


D'une intégration de données à l'autre, le nombre de lignes est différent ( à la hausse ou à la baisse) tout dépend de l'extraction

Pour la fonction macro VBA aller chercher un fichier, j'aimerai essayer de faire en sorte d'aller toujours chercher les fichiers dans le même répertoire avec des noms de fichiers identiques pour faciliter la chose

pour l'instant la fonction donne quelque chose comme :


Maccro commencée sur mon fichier d'origine, mais je vous ai fourni une extraction

Merci d'avance pour votre aide !

Sub Macro_Clean()
'
' Macro_Clean Macro

    'Suppression des données de la BCD-Quotidienne
    Range("C5:D5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents 'clean la plage
    
     '!INTEGRER FONCTION DINTEGRATION FICHIER
     
'Fin suppression de la BCD-Quotidienne
    
'Indicateur 651    Range("J5:P5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    
     '!INTEGRER FONCTION DINTEGRATION FICHIER
     
'Fin indicateur 651
    
'indicateur 652    Range("V5:AB5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContent
    
    Range("AC6").Select 'Clear Doublon
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents 'Fin clear Doublon
    '!INTEGRER FONCTION DINTEGRATION FICHIER
   
'Fin indicateur 652
   
   
'Indicateur 653     Range("AH5:AN5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContent
    
    Range("AO6").Select 'Clear Doublon
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContent
    
     '!INTEGRER FONCTION DINTEGRATION FICHIER
  

    
'Fin indicateur 653
   
   
   
'Indicateur PRIO1
    Range("AU5:BB5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContent
    
    Range("BC6").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    
    '!INTEGRER FONCTION DINTEGRATION FICHIER
  
  
    
'Fin indicateur prio
    
    
    
'Indicateur 654
   
    Range("BQ5:CC5").Select 'Clear plage
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents  'Fin clear plage
    
  
    Range("CD6").Select   'clear doublon 1,2,3
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents 'Fin clear plage
   
    '!INTEGRER FONCTION DINTEGRATION FICHIER
  
   
'Fin indicateur 654
 
  
    
  
   End Sub