Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
If Target.Offset(, -1).Value Like "Journée *" Then
If Target.Cells(1, 1) <> "" Then
Target.Offset(1).Resize(16).EntireRow.AutoFit
MsgBox "Vous pouvez saisir le pgme de la journée " & Right(Target.Offset(, -1), 2)
Else
Target.Offset(1).Resize(16).EntireRow.Hidden = True
End If
End If
End If
End Sub