Formulas Autofill

Bonjour,

afin de tirer jusq à la dernière cellule non vide l'ensemble des formules sur trouvant sur une meme ligne et allant de B3 à AO3, je n'ai pas trouvé mieux que le code suivant:

Dim lr As Long

lr = ActiveSheet.UsedRange.Rows.Count

Range("b3").AutoFill Destination:=Range("b3:b" & lr)

Range("c3").AutoFill Destination:=Range("c3:c" & lr)

Range("an3").AutoFill Destination:=Range("ao3:an" & lr)

Range("ao3").AutoFill Destination:=Range("ao3:ao" & lr)

ce code répète 41 fois la meme commande... laborieux

Auriez vous plus "digeste" à me proposer svp?

D'avance merci

bonjour,

essaie ceci

    Dim lr As Long

    lr = ActiveSheet.UsedRange.Rows.Count
    Range("b3:ao3").AutoFill Destination:=Range("b3:ao" & lr)

Excellent!

Mille mercis.