Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Fin
If Target.Column <> 7 Then Exit Sub ' car non colonne G
L = Target.Row
Set Plage = Range(Cells(L, "G"), Cells(1000, "G"))
If Application.Sum(Plage) <> 0 Then Cells(L, "F").Select: Exit Sub ' cas où on clique avant la premiere cellule remplie
For i = L To 2 Step -1
If Cells(i, "G") <> "" Then
If Cells(i, "G") = 1 Then ' Si 1 avant alors on revient à 9
Target = 9
Else ' Sinon on fait -1
Target = Cells(i, "G") - 1
End If
Cells(L, "F").Select ' On se met sur la colonne F pour validation
Exit Sub
End If
Next i
Cells(L, "G") = 9 ' Si on arrive là c'est que la colonne est vide, donc on met 9
Cells(L, "F").Select
Fin:
End Sub