Bonjour didier,
il faut réaliser une boucle, pour la déclarer il faut la placer après Dim et lui donner un type Integer, Long
Dim I as Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("b2").Value = "s4" Then
for I = 3 to 33
Worksheets("Sheet1").Cells(I, 2)= "1:00"
next I
End if
End Sub