Bonjour Thombar, bonjour le forum,
Ceci est un peu plus long mais foncitionne.
For Each cel In Range("C8:C10")
If cel.Value <> "" Then
Exit Sub 'ou goto selon tes besoins
End If
Next
Message = MsgBox("Merci de remplir une des trois cellules")
À plus,
Robert