[Gorfael]

Envoyé par Lipadec

Bonjour Gorfael et merci de ton aide, mais je n'ai pas pu avoir de bons résultats. J'ai la date sur la ligne 25 des colonnes B à M.
Tu peux tjs me rectifier cette macro que j'ai apprécié.
Merci d'avance
Lipadec

Salut

Private Sub Workbook_Open()
Dim X As Integer
 
Sheets("F1").Activate
ActiveSheet.Unprotect
Cells.Select
Selection.Locked = False
For X = 2 To 13
    If IsDate(Cells(2, X)) Then
        If Cells(25, X) < Date Then Columns(X).Locked = True
    End If
Next X
ActiveSheet.Protect
End Sub

A+