Probleme Cellule.Offset

[Zebi]

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

 

[sousou]

Bonjour

mettre activecell.offset.0...

au lieu de cellule.offset

dans ton code cellule n'est pas un objet définit

 

[Zebi]

Merci pour ton aide