Sub refresh()
Application.ScreenUpdating = False
PremierJour = DateSerial(Year(Now), Month(Now), 1)
Set c = ActiveSheet.Range("5:5").Find(PremierJour, lookat:=xlWhole) 'on cherche la colonne du mois en cours
If Not c Is Nothing Then
For i = 1 To 4
nb = Range("C" & i + 5) * -1
c.Offset(i, nb).Resize(1, nb * -1) = 1
c.Offset(i, 0).Resize(1, nb * -1) = 2
Next i
End If
Application.ScreenUpdating = True
End Sub