Re- BobStriker,
Si tu veux absolument passer par VBA, tu trouveras ci-joint un fichier exemple qui utilise la procédure ci-dessous :
Public Sub ChercheMultiple()
Dim C As Range
'Pour chaque cellule de la sélection
For Each C In Selection
'Si Valeur Modulo 5 = 0
If C Mod 5 = 0 Then
'Redéfinir la police
C.Font.Bold = True
C.Font.ColorIndex = 3
End If
Next C
End Sub
Cordialement,
Didier_mDF