Sub TirerVersLeBas()
Dim Lig As Long
Dim L As Long
With ActiveSheet
Lig = .Cells(.Rows.Count, 1).End(xlUp).Row 'sur colonne A
L = .Cells(.Rows.Count, 2).End(xlUp).Row 'sur colonne B
If L > Lig Then Lig = L 'choisi la plus grande
.Cells(2, 3).AutoFill .Range(.Cells(2, 3), .Cells(Lig, 3))
End With
End Sub