Faire glisser en VBA

Bonjour à tous,

Je suis débutant (voir grand débutant) en VBA et j'essaie de faire une manip qui me semble assez simple mais je n'y arrive pas.

J'ai une feuille dans laquelle j'ai une liste de machines qui peut varier. Cette liste est reprise dans une autre feuille qui réalise des calculs selon les taux de pannes à partir d'une autre feuille provenant d'un autre document.

J'ai déjà réussi à faire un petit VBA qui copie cette liste dans ma feuille de calcul. Maintenant, j'aimerais que le tableau de calcul s'élargisse avec la liste de machines. Autrement dit, en ne changeant que la liste, la feuille de calcul est automatiquement mise à jour (ou par simple clic d'actualisation sur un bouton).

J'ai déjà commencé à plancher dessus avec la copie de la liste et le comptage du nombre de cellules dans la liste. Maintenant je sèche pour le défilement automatique.

Voilà le VBA que j'ai réalisé pour l'instant (en partie grâce à la création automatique) :

Sub Copie_colonne()
'
' Copie_colonne Macro

    ActiveWindow.SmallScroll Down:=-9
    Sheets("Liste équipements et lignes").Select
    Columns("A:B").Select
    Selection.Copy
    Sheets("Temps d'arrêt des équipements").Select
    Columns("A:B").Select
    ActiveSheet.Paste
'copie les colonnes A et B de la feuille liste à la feuille temps d'arrêt

Dim DerLig As Long
    With ThisWorkbook.Worksheets("Liste équipements et lignes")
        DerLig = .Range("A" & Rows.Count).End(xlUp).Row
    End With
  MsgBox DerLig
'donne une fenêtre avec le nombre de lignes dans la colonne A

End Sub

Mon fichier est trop lourd, donc je ne peux pas le mettre en pièce-jointe.

J'espère avoir été assez clair !

Merci de votre aide !

Bonjour,

Mon fichier est trop lourd, donc je ne peux pas le mettre en pièce-jointe.

J'espère avoir été assez clair

20-30 lignes non confidentielles suffisent

P.

Le fichier est très réduit mais dans l'idée, c'est ça.

Merci,

Yves