Sub Jaune_Présent()
'Pour chaque cellule d'une plage donnée
Dim Cellule As Range
'(d'une même colonne):
If Selection.Columns.Count > 1 Then Exit Sub
For Each Cellule In Selection
'- inscription du mot "Présent" dans la cellule voisine (à droite)
Cellule.Offset(0, 1) = "Présent"
'- coloration des 2 cellules en jaune (celle de la plage initiale + celle qui contient le mot "Présent")
Range(Cellule, Cellule.Offset(0, 1)).Interior.ColorIndex = 36
Next
'- Positionnement de la cellule active sur la 1ère ligne sous la plage de cellules sélectionnée à l'origine.
Cells(Selection.Row + Selection.Count, Selection.Column).Select
End Sub