1
2
3
4
5
6
7
8
9

Sub WriteStatusBar()
Dim str As String
 
str = "Excel-newbies.fr"
Application.StatusBar = str
'Application.StatusBar = "Excel-newbies.fr"
'Pour effacer le commentaire
Application.StatusBar = False
End Sub