Suis-je bête, les dates ne sont évidemment pas des valeurs texte.
Par contre je souhaite supprimer la cellule (remontée de la colonne vers le haut). Du coup je prpose la modification suivante :
Sub MAJ_Calendrier()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("A2:L2")
If Format(Weekday(c), "dddd") = "dimanche" Or Format(Weekday(c), "dddd") = "samedi" Then c.Delete Shift:=xlUp
Next
Application.ScreenUpdating = True
End Sub
Ça marche (le Application.ScreenUpdating = False est là pour accélérer l’exécution du code).
Merci pour le coup de main