Je viens de voir ces codes qui fonctionnent :
Sub SpinButton1_SpinUp() 'OKOK
Application.ScreenUpdating = False
For i = 2 To Range("A30").End(xlUp).Row
If UCase(Cells(i, 5)) <> "X" Then
Rows(i).Hidden = True
Else
i = i + 1
End If
Next i
Application.ScreenUpdating = ttrue
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Mettre X colonne Sel OKOK
If Target.Row / 2 = Int(Target.Row / 2) Then
Target = "X"
Target.Offset(0, 1) = Format(Date, "dd/mm/yyyy")
End If
End Sub
Tous mes remerciements chaleureux.