Bug lié à autofil

Bonjour,

J'ai un petit soucis avec la requette suivante :

Dim i As Integer

i = Range("B5").End(xlDown).Row
Range("N6").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[11],'Processus !R3C1:R2000C28,9,FALSE)"
Range("N6").Select
Selection.AutoFill Destination:=Range("N6:n" & i)
Range("N6:n" & i).Select


Je met en forme les données de la colonne N à partir de la ligne 6. J'ai le soucis lorsque je n'ai qu'une seule ligne à traiter. Le recopiage fonctionne bien dès que j'ai une ligne 7 et donc une deuxieme ligne à traiter.

Deja suis-je clair ?

Comment m'en sortir ?

Merci d'avance pour vos réponses.