Sub tutu()
Dim i&, j&, v()
v = Range("Tableau1[[Repas]:[Repas3]]").Value
With Range("Tableau1[Date]")
For i = 1 To .Rows.Count
If .Cells(i).Value Mod 7 < 2 Then For j = 1 To 3: v(i, j) = Empty: Next
Next
End With
Range("Tableau1[[Repas]:[Repas3]]").Value = v
End Sub