Sub RouleMacro()
With Sheets("Feuil4")
Do Until Sheets("Feuil5").Range("A1") = .Cells(Rows.Count, 1).End(xlUp) And _
Sheets("Feuil5").Cells(1, Columns.Count).End(xlToLeft) = .Cells(Rows.Count, 1).End(xlUp).Offset(, 1)
MACRO
Loop
End With
End Sub