Sub Macro1()
Range("A1:U" & Range("A65535").End(xlUp).Row).Copy
Sheets("Tableau aprés").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.ScreenUpdating = False
Dim cellule As Range
For i = 5 To 21
For Each cellule In Range("F2:U" & Range("A65535").End(xlUp).Row)
If cellule = "" Then
cellule = Cells(cellule.Row, cellule.Column + 1)
Cells(cellule.Row, cellule.Column + 1) = ""
End If
Next cellule
Next i
Application.ScreenUpdating = True
[A1].Select
MsgBox ("Opération terminée")
End Sub