Continuer Macro malgré erreur 1004

Bonjour,

Je voulais créer une macro pour supprimer les cellules nommer 'Supprimer" mais si "supprimer" n'existe pas continuer la macro normalement. Le problème c'est que le message 1004 empêche toujours ma macro de fonctionner quand il ne trouve pas "supprimer". Auriez-vous une idée.

Merci

On Error GoTo bug

wb.Worksheets("comptes concernés").Application.GoTo Reference:="Supprimer"
'err.Clear
Selection.Delete Shift:=xlToLeft

bug:
If err.Number = 1004 Then
End If

End Select

Bonsoir,

Si tu veux supprimer une plage qui n'existe pas, tu auras bien sûr une erreur ! Il te faut donc en toute logique la supprimer seulement si elle existe, et éviter dans le cas contraire !

Cordialement.

Merci, j'ai trouvé une une solution qui fonctionne parfaitement. Je n'avais réfléchit à la bonne approche.

NomExist = False
On Error GoTo ErrExist
wb.Worksheets("comptes concernés").Application.GoTo Reference:="Supprimer"
NomExist = True
Selection.Delete Shift:=xlToLeft
On Error GoTo 0
ErrExist: