Microsoft 365 Affichage qui fluctue et gene la sélection de cellule

Private Sub ListCtrlMIF_Click()
 
' afin de pouvoir travailler dans d'autres fichiers excel sans bug
If ActiveSheet.Name <> "Outil MIF" Then 'si la feuille active n'est pas "Outil MIF"
    Exit Sub ' sortie de la procédure ListCtrlMIF_Click
End If
 
val_code = Worksheets("Outil MIF").Range("H10").Value
If val_code = "A0" Or val_code = "A1" Or val_code = "A2" Or val_code = "A3" Or val_code = "A4" Or val_code = "A5" Or val_code = "A6" Then
    Worksheets("Outil MIF").LthemeanoMIF.Visible = True
    Worksheets("Outil MIF").LthemeanoMIF.Selected(0) = True
Else
    Worksheets("Outil MIF").LthemeanoMIF.Visible = False
End If
End Sub
 
 
Private Sub LthemeanoMIF_Click()
 
' afin de pouvoir travailler dans d'autres fichiers excel sans bug
If ActiveSheet.Name <> "Outil MIF" Then 'si la feuille active n'est pas "Outil MIF"
    Exit Sub ' sortie de la procédure ListCtrlMIF_Click
End If
 
val_code = Worksheets("Outil MIF").Range("H11").Value
val_code2 = Worksheets("Outil MIF").Range("H10").Value
  
    Worksheets("Outil MIF").Activate
     Application.ScreenUpdating = False
     Application.Calculation = xlCalculationManual
    
    'y = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row ' fin des lignes
    'ActiveSheet.Range("$A$15").AutoFilter Field:=8
    'ActiveSheet.Range("$A$15").AutoFilter Field:=5, Criteria1:="CRA"
    ActiveSheet.Range("$A$19").AutoFilter Field:=7, Criteria1:=val_code2
    ActiveSheet.Range("$A$19").AutoFilter Field:=8, Criteria1:=val_code
   
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    ActiveSheet.Range("A1").Select
End Sub
 
 
 
 
Private Sub motifsctrlssobjet_Click()
 
'Gestion de l'afichage du bouton d'information des motifs de contrôles sans objet
 
MsgBox ("Contrat d'Assurance-Vie renoncé dans Life.net" & Chr(10) & "Tiers décédé")
 
End Sub
 
 
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim y, x, nomCRA
 
y = Target.Row
x = Target.Column
 
If y = 5 Or y = 7 Or y = 9 Or y = 11 Then
    Rows(y).EntireRow.AutoFit 'Ajuste automatiquement la hauteur de ligne
End If
 
End Sub
 
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Gestion double clic sur selection commentaire type
 
Dim x, y, testcel, testano, var_text, var_CT, compl_CT, Ttext, Rtext, code_CT
 
y = Target.Row
x = Target.Column
 
If Target.Address <> "$B$1" And Target.Address <> "$B$2" And Target.Address <> "$B$3" And Target.Address <> "$B$4" _
And Target.Address <> "$B$5" And Target.Address <> "$B$6" And Target.Address <> "$B$8" And Target.Address <> "$B$7" _
And Target.Address <> "$B$8" And Target.Address <> "$B$9" And Target.Address <> "$B$10" And Target.Address <> "$B$11" Then
   
    'permet le double clic sans message d'erreur si on est pas en B4 ou B8.
    Cancel = True
       
    testano = Left(Range("G" & y).Value, 1)
   
    'Si on veut ajouter une anomalie
    If testano = "A" Then
   
    testcel = Range("B5").Value
   
    var_CT = Range("B" & y).Value
   
    var_text = InStr(1, var_CT, "/")
   
    If var_text > 0 Then
   
        Ttext = Len(var_CT)
        Rtext = Right(var_CT, Ttext - var_text + 2)
        Ttext = Len(Rtext)
        Rtext = Left(Rtext, Ttext - 5)
        code_CT = Right(var_CT, 5)
        compl_CT = InputBox("Veuillez préciser le commentaire: " & var_CT, "Préciser la saisie", Rtext)
        Ttext = Len(var_CT)
        var_CT = Left(var_CT, var_text - 2)
        var_CT = var_CT + compl_CT + code_CT
   
    End If
   
    'Code pour générer les données du conseil
If Range("B7").Value = "" Then
 
'avec conseil
If Range("H1").Value = "Vrai" Or Range("H2").Value = "Vrai" Or Range("H3").Value = "Vrai" Or Range("H4").Value = "Vrai" Then
myvar = Sheets("Outil MIF").Range("B7").Value
    var_date = InputBox("Veuillez saisir la date du conseil", "Saisie", "xx/xx/xxxx")
    var_etude = InputBox("Veuillez saisir le numéro d'étude")
Range("B9").Value = "Défaut d'archivage ou de formalisation du document"
    myvar = " Conseil du " & var_date & " Etude " & var_etude & ""
   
    Sheets("Outil MIF").Range("B7").Value = myvar
 
Else 'sans conseil
    var_montant = InputBox("Veuillez saisir le montant de l'opération et sa fréquence", "Saisie", "montant EUR et/ou montant EUR par mois")
    var_support = InputBox("Veuillez saisir le support de l'opération", "Saisie", "nom_du_support/code_ISIN")
    var_enveloppe = InputBox("Veuillez saisir l'enveloppe de l'opération", "Saisie", "nom_de_lenveloppe/produit")
    'Range("B9").Value = "Défaut d'archivage ou de formalisation du document"
    myvar = " Souscription de " & var_montant & " sur le support " & var_support & " de l'enveloppe " & var_enveloppe & myvar
    Sheets("Outil MIF").Range("B7").Value = myvar
 
 
End If
 
 
End If
        If testcel = "" Then
            Range("B5").Value = Range("B5").Value + Range("E" & y).Value + " - " + Range("F" & y).Value
        Else
            Range("B5").Value = Range("B5").Value + Chr(10) + Range("E" & y).Value + " - " + Range("F" & y).Value
        End If
 
    testcel = Range("B7").Value
 
        If testcel = "" Then
            Range("B7").Value = Range("B7").Value + var_CT
        Else
            Range("B7").Value = Range("B7").Value + Chr(10) + var_CT
        End If
End If
End If
 
testcel = Cells(y, 6).Value
If testcel = "Document absent" Then
    Range("B9").Value = "Défaut d'archivage ou de formalisation du document"
    Range("B11").Value = "Merci de vous référer au Flash Archivage et à la fiche pratique Focus conformité disponibles dans Canal PRI"
End If
 
 
 
End Sub