Sub copie()
Dim i As Integer
Dim DernLigneA As Long
Dim DernLigneB As Long
DernLigneA = Range("A" & Rows.Count).End(xlUp).Row
DernLigneB = Range("B" & Rows.Count).End(xlUp).Row
For i = DernLigneA To DernLigneB
If Cells(i, 2) <> "" Then
Cells(i, 1) = Cells(DernLigneA, 1)
End If
Next i
End Sub