FEUILLE 1 BASE DE DONNEES

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A2:A1200")) Is Nothing Then Exit Sub
    Select Case Target.Value
    Case "", "ý"
        Target = "o"
    Case Else
        Target = "ý"
    End Select
    Cancel = True
End Sub

FEUILLE 2 DQE


Private Sub Worksheet_Activate()
Dim nbCol As Long
Dim c As Range
Application.ScreenUpdating = False
Me.Range("A5:G1200").ClearContents
With Sheets("BASE DE DONNEES")
    nbCol = .Cells(2, Columns.Count).End(xlToLeft).Column
    For Each c In .Range("A2:A" & .Range("A1200").End(xlUp).Row)
        If c = "ý" Then c.Offset(0, 1).Resize(1, nbCol - 1).Copy Me.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    Next c
End With
Application.ScreenUpdating = True
End Sub