Sub test()
For n = 4 To 30
If Range("D" & n) = "" Then Exit Sub
If Range("D" & n) = "OUI" Then MsgBox ("Validé " & Range("C" & n))
If Range("D" & n) = "NON" Then MsgBox ("Non Validé " & Range("C" & n))
Next
End Sub
Sub Gourdin()
Dim ligne As Integer
ligne = 4
While Cells(ligne, 4) <> ""
MsgBox IIf(UCase(Cells(ligne, 4)) = "OUI", " ", "non ") & "validé par " & Cells(ligne, 3), vbOK + vbInformation, "jmGourdin"
ligne = ligne + 1
Wend
End Sub