With Worksheets("Feuille1")
Set PlageARemplir = .Range("BJ302:IP" & .Range("IP65536").End(xlUp).Row)
End With
Sub RecopieIncrementee()
Dim PlageARemplir As Range
Dim PlageSource As Range
With Worksheets("Feuille1")
Set PlageSource = .Range("BJ302:IP" & .Range("IP65536").End(xlUp).Row)
Set PlageARemplir = .Range("BJ302:IP" & .Range("IP65536").End(xlUp).Row + 1)
End With
PlageSource.AutoFill Destination:=PlageARemplir
End Sub
PlageSource.AutoFill Destination:=PlageARemplir[B][COLOR="Red"], Type:=xlFillSeries[/COLOR][/B]
Sub RecopieIncrementee()
Dim PlageARemplir As Range
Dim PlageSource As Range
With Worksheets("Feuil1")
Set PlageSource = .Range("BJ2:FK2")
Set PlageARemplir = .Range("BJ2:FK" & .Range("FK65536").End(xlUp).Row)
End With
PlageSource.AutoFill Destination:=PlageARemplir, Type:=xlFillSeries
End Sub
Option Explicit
Sub RecopieIncrementee()
Dim PlageARemplir As Range
Dim PlageSource As Range
With Worksheets("Feuil1")
Set PlageSource = .Range("BJ" & .Range("BJ65536").End(xlUp).Row & ":FK" & .Range("FK65536").End(xlUp).Row)
Set PlageARemplir = PlageSource.Resize(2)
End With
PlageSource.AutoFill Destination:=PlageARemplir, Type:=xlFillSeries
End Sub