Bonsoir Totoche31
Il suffit de concaténer la variable comme ceci
Selection.AutoFill Destination:=Rows("3:" & MaVariable), Type:=xlFillDefault
Pour la lenteur de traitement, vous pouvez faire avant traitement
' Désactiver les évènements et le calcul automatique
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
' code du traitement ICI
' Puis tout réactiver
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
A+