Bonjour Blondin, bonjour le forum,
Essaie comme ça (à placer dans le composant ThisWorkbook) :
Private Sub Workbook_Open()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau ds Valeurs)
Dim M As String 'déclare la variable M (Message)
Set O = Worksheets("Feuil1") 'définit l'onglet O
TV = O.Range("A7").CurrentRegion 'définit le tableau des valeurs TV
M = "Non traitée : " & Chr(10) & Chr(10) 'initialise le message M
For I = 2 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV
If InStr(1, TV(I, 11), "Non traitée", vbTextCompare) > 0 Then 'condition : si la donnée ligne I colonne 11 (=> colonne K) contient "Non traitée"
'si la donnée ligne I colonne 12 (=> colonne L) vaut 1 ou 2, modifie le message M
If TV(I, 12) = 1 Or TV(I, 12) = 2 Then M = M & "Ligne " & I + 6 & ", priorité : " & TV(I, 12) & Chr(10)
End If 'fin de la condition
Next I 'prochaine ligne de la boucle
MsgBox M 'affiche le message M
End Sub