Sub Message()
Dim cel As Range
For Each cel In Range("d18:d29,d37:d48")
If IsNumeric(cel) And cel > 60 Then
ActiveSheet.Shapes("alerte").Visible = True
Exit Sub
End If
Next cel
ActiveSheet.Shapes("alerte").Visible = False
End Sub