[COLOR="DarkSlateGray"][B]Sub toto()
Dim tmp, tf As Boolean
On Error GoTo E
tmp = Range("'BALANCE N '' '!A1").Value
On Error GoTo 0
If tf Then
[COLOR="SeaGreen"]'Traitement du cas où la feuille 'BALANCE N ' n'existe pas.[/COLOR]
Else
[COLOR="SeaGreen"]'Traitement du cas où la feuille 'BALANCE N ' existe.[/COLOR]
If tmp <> "N" Then
MsgBox ("ATTENTION veuillez supprimer ou renommer l'onglet BALANCE N ' ")
End If
End If
Exit Sub
E:
MsgBox "La feuille 'BALANCE N ' n'existe pas."
tf = True
Resume Next
End Sub[/B][/COLOR]