Sub Bouton1_QuandClic()
Worksheets("Final").Activate
ActiveSheet.UsedRange.Select
Dim i, j, n, m As Integer
n = 3306
m = 7
For j = 1 To m
For i = 2 To n + 1
Range("A1").Offset(i, j).Select
If IsEmpty(Selection) Then
Range("A1").Offset(i - 1, j).Select
Selection.Copy
Range("A1").Offset(i, j).Select
ActiveSheet.Paste
Next i
Next j
End Sub