Probleme Cellule.Offset

Cette macro se plante à l'instruction Cellule.Offset sur une erreur 424 ?

For i = 1 To 100
adra = "d" & i
Range(adra).Select
sect = ActiveCell.Value
ctr = i & ":" & i

If sect = "LUNDI" Then
Rows(ctr).Select
Selection.Insert Shift:=xlDown
ActiveCell = sect
cellule.Offset(-1, 0).Value = "Tot/sem"
Selection.Font.Bold = True
End If

Next


Merci de votre aide