Sub FigerSemaine()
Dim Col As Integer, FlgOk As Boolean, Reponse As String
Reponse = InputBox("Jusque quand voulez-vous figer? [aaaa-ss]", "Information")
If Reponse <> "" Then
For Col = 2 To 200 'Numéro des colonnes concernées
If Cells(1, Col).Value <= Reponse Then
FlgOk = True
Range(Cells(3, Col), Cells(34, Col)).Value = Range(Cells(3, Col), Cells(34, Col)).Value
End If
Next Col
' Si le flag n'a pa été mis sur VRAI = pas de colonne trouvée
If Not FlgOk Then
MsgBox "La valeur rentrée ne correspond à aucune semaine de l'année en cours", vbCritical, "Attention!"
End If
End If
End Sub