Ou est l'erreur ???

Bonjour =E0 tous,

Je me demande bien ce qui ne fonctionne pas dans la macro=20
suivante !!!

Je l'ai copi=E9e dans une autre de mes applications ou je=20
n'ai aucun probl=E8me.... Cela consiste =E0 mettre une bordure=20
apr=E8s chaque entr=E9e. La cellule A4 est vide, mais dans le=20
cellule A5, il y est inscrit le mot date. Donc, d=E8s que=20
l'usager entre des informations qui se placereont dans la=20
cellule A6 et etc.... J'appelle cette macro qui devrait=20
faire une bordure autour des infos entr=E9es. Cependant,=20
Excel cherche un objet....

Qu'est-ce que je ne vois pas ???


Sub Bordures()
With ActiveSheet.Range("A4").End(xlDown).Offset(1,=20
0).Resize(0, 3) 'instruction sur la m=EAme ligne
.BorderAround ColorIndex:=3DxlAutomatic, Weight:=3DxlMedium
End With
End Sub


Merci pour votre temps

Denys