Fonction "autofill" dynamique

Bonjour,

j'ai essayé de me servir de la méthode de cette discussion, mais je n'y arrive pas.
Voici ma méthode, mais qui chie à cause du range de l'autofill, et je ne comprends pas ce qui cloche.

Voici mon code:
en pj le fichier

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Cellules_Vides() Dim Ws As Worksheet 'dernière ligne rempli de la colonne A Dim u As String u = Range("A65536").End(xlUp).Row 'dernière ligne non rempli de la colonne O Dim i As String i = Range("O65536").End(xlUp).Row + 1 'duplication des cellules Range("M" & i & ":P" & u).Select Selection.AutoFill Destination:=Range("M" & i & ":P" & u), Type:=xlFillDefault Range("M" & i & ":P" & u).Select End Sub

---