Sub PlageAutoFill()
Dim Plage As Range
'recherche la dernière cellule utiliser de la feuille
'équivalent à UsedRange mais UsedRange offre parfois des
'surprises si on a pas mal bidouiller la feuille
With Worksheets("Feuil1")
Set Plage = .Range(.Cells(1, 1), _
.Cells(.Cells.Find("*", .[A1], -4123, , _
1, 2).Row, .Cells.Find("*", .[A1], -4123, , _
2, 2).Column))
End With
'recopie vers le bas toutes les colonnes en multipliant par deux
'le nombre de lignes (ici c'est pour l'exemple) on est sensé savoir
'de combien de lignes ou souhaite recopier
Plage.AutoFill Plage.Resize(Plage.Rows.Count * 2, Plage.Columns.Count)
'même façon pour les colonnes
'Plage.AutoFill Plage.Resize(Plage.Rows.Count, Plage.Columns.Count * 2)
Set Plage = Nothing
End Sub