Range("E8").Select

Bonsoir a tous

Range("E8").Select

sélectionne la cellule E8

Dans mon tableau E8 E9 E10 EST PRIS

je voudrais que la sélection passe a E11 PUIS E12 PUIS E13 etc...

voir tableau

Aiglon74

Bonjour

Ton fichier en retour

Cordialement

Bonsoir,

Bonsoir Amadéus

Une autre solution

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E8:E30")) Is Nothing Then
    ActiveSheet.Unprotect
    Target.Offset(, -3) = IIf(Target <> "", Date, "")
    If Target = "" Then Target.Select Else Target.Offset(1).Select
    ActiveSheet.Protect
End If
End Sub

Bonne soirée

Bonsoir a vous 2

merci pour vos réponses rapide et efficaces

Cordialement.

Aiglon74