AFFICHAGE MSGBOX avec valeur

Bonjour,

Je cherche un moyen d'afficher une MsgBox à chaque ligne ou la cellule G =Alerte.

j'aimerai que la MsgBox affiche le texte suivant " il vous reste 15 jours pour archiver le véhicule suivant"+ la valeur de la cellule B sur la même ligne que l'alerte,VbOnlyOk+VBExclamation.

Le top serai que le MsgBox affiche direct toute les immatriculations en alerte.

Merci d'avance

Bonjour,

A placer dans ta feuille

Sub alerte()
Dim i%, Dl%
Dl = Range("A" & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne A
For i = 2 To Dl
  If LCase(Cells(i, 6).Value) = "alerte" Then
    MsgBox " il vous reste 15 jours pour archiver le véhicule suivant " & Cells(i, 2).Value, vbOKOnly + vbExclamation
  End If
Next i
End Sub

Re,

J'avais pas vu la suite -tout grouper)

Sub alerte()
Dim i%, Dl%, Msg$

Dl = Range("A" & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne A
For i = 2 To Dl
  If LCase(Cells(i, 6).Value) = "alerte" Then
    Msg = Msg & " il vous reste 15 jours pour archiver le véhicule suivant: " & Cells(i, 2).Value & Chr(10)
  End If
Next i
  MsgBox Msg, vbOKOnly + vbExclamation
End Sub

Super,

Merci beaucoup