Sub Macro2()
Range(Cells(6, 2), Cells(6, 2).End(xlDown)).Offset(, 1).Value = _
Range(Cells(6, 2), Cells(6, 2).End(xlDown)).Value
End Sub
Sub boucle()
Dim derlig&, i&
Application.ScreenUpdating = False
With Feuil1
derlig = .Cells(.Rows.Count, "b").End(xlUp).Row
For i = 6 To derlig
'on fait ce qu'on doit faire
Next i
End With
End Sub