Céer un message d'alerte à l'ouverture du fichier excel

Option Explicit
Private Sub Workbook_Open()
Dim colonne As Integer
 colonne = Application.WorksheetFunction.CountA(Columns(12))
 If colonne = 0 Then
 MsgBox "le dossier (informations sur colonne E) n'est pas encore traité "
 Else
 MsgBox "colonne non vide"
 End If
End Sub

Option Explicit

' constantes à modifier selon ta configuration
Const NF = "Feuil1"
Const lititre = 1
Const cotest = "L"

Private Sub Workbook_Open()
Dim lifin As Long
lifin = Sheets(NF).Cells(Rows.Count, cotest).End(xlUp).Row
If lifin = lititre Then
  MsgBox "le dossier (informations sur colonne E) n'est pas encore traité "
End If
End Sub