Sub pMessage()
Dim oMess(), rDat As Range, oCel As Range
oMess = Array("", "bonjour", "hello", "salut")
If Cells(Rows.Count, 1).End(xlUp).Row > 1 Then
Set rDat = Range([A1], Cells(Rows.Count, 1).End(xlUp)).Resize(Cells(Rows.Count, 1).End(xlUp).Row - 1, 1).Offset(1, 0)
For Each oCel In rDat.Cells
oCel.Offset(0, 1).Value = oMess(oCel.Value * (oCel.Value > 0) * (oCel.Value < 4))
Next oCel
End If
End Sub