Re,
Voici l'explication du code dans le développeur sur la feuille "Planning"
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("E5:E1000")) Is Nothing Then 'Sur modification des cellules allant de E5 à E1000
If Target.Value = "récupération" Then 'si la valeur est indiquée "récupération"
Target.Offset(0, 2).Value = "9:00" 'la valeur de la cellule décalée de 2 colonnes est égal à 9:00
Target.Offset(0, 4).Value = "16:24" 'la valeur de la cellule décalée de 4 colonnes est égal à 16:24
Else 'sinon
Target.Offset(0, 2).Value = "" 'j'efface les données
Target.Offset(0, 4).Value = ""
End If
End If
End Sub