Macro de mise en forme

[lectave]

Bonjour,
j'ai plusieurs noms inscrits sur un petit tableau. A côté de chaque nom, il y a une cellule dans laquelle je dois inscrire un code. En fonction du code inscrit dans la cellule, je désire que la cellule contiguë (contenant le nom) prennent une mise en forme particulière (P = blanc, A, B, 13 et 15 : noir, R : gris).
Débutant en VBA, j'ai bricolé une macro qui ne ressemble pas à grand chose même si elle fonctionne !!! (cf fichier ci-joint)
Je voudrais quelque chose de plus simple
Lectave [file name=Mef_lectave.zip size=36108]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Mef_lectave.zip[/file]

 

[bebere]

bonsoir

voila ce qu'il te faut

Sub terrain()
Dim Cell As Range
Application.ScreenUpdating = False
For Each Cell In Sheets('Lundi').Range('B4:G13')
If Cell.Value = 'A' Or Cell.Value = 'B' Or Right(Cell.Value, 2) = 13 Or _
Right(Cell.Value, 2) = 15 Then
Cell.Interior.ColorIndex = 1 'noir
End If
If Cell.Value = 'P' Then
Cell.Interior.ColorIndex = 2 'blanc
End If
If Cell.Value = 'R' Then
Cell.Interior.ColorIndex = 15 'gris
End If
Next Cell
Application.ScreenUpdating = true
end sub

à bientôt