Option Explicit
Sub test()
Dim Derlig&, i&, Message
Derlig = Range("B" & Rows.Count).End(xlUp).Row
For i = 8 To Derlig
If Sheets("Import").Cells(i, 2) = "" Then
Message = Cells(i, 2).Address & ", " & Message
End If
Next i
MsgBox "Les cellules " & Message & " sont vides", vbCritical, "Problème !!!"
End Sub