Sub Macro1() Dim BC As Worksheet 'déclare la variable BC Dim BD As Worksheet 'déclare la variable BD Dim NF As Byte 'déclare la variable NF (Nombre de Fois) Dim PLV As Integer 'déclare la variable PLV (Première Ligne Vide) Set BC = Worksheets("BC") 'définit l'onglet BC Set BD = Worksheets("BD") 'définit l'onglet BD NF = Application.WorksheetFunction.CountA(BC.Range("D21
41")) 'définit le nombre de fois NF PLV = BD.Cells(Application.Rows.Count, "E").End(xlUp).Row + 1 'définit la première ligne vide PLV de la colonne E de l'onglet BD BC.Range("B11").Copy BD.Cells(PLV, "E").Resize(NF, 1) 'copie la cellule B11 de l'onglet BC et la colle dans la cellule ligne PLV colonne E redimensionnée à NF lignes de l'onglet BD End Sub