XL 2013 Corriger mes codes

  ' # Modif du 08/10 wDog66
  ListBox1.RowSource = "DATA!A6:T" & TextB_Nb_Enreg + 5

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  With ListBox1
    On Error GoTo fin:
    If .ListIndex > -1 Then
      TextB_Num_Enreg.Value = .List(.ListIndex, 0) 'TextB_Num_Enreg  Numéro
            
      TextBox2.Value = .List(.ListIndex, 1)      'Nom et prénom
      TextB_Naiss.Value = CDate(.List(.ListIndex, 2)) 'Date de Naissance
      TextB_Age_A.Value = .List(.ListIndex, 3)   'TextB_Age_Années
      TextB_Age_M.Value = .List(.ListIndex, 4)   'TextB_Age_Mois
      TextB_Age_J.Value = .List(.ListIndex, 5)   'TextB_Age_Jours
      TextBox5.Value = .List(.ListIndex, 6)      'Lieu de naissance
      TextBox6.Value = .List(.ListIndex, 9)      'Nombre d'enfants
      TextBox7.Value = .List(.ListIndex, 10)     'Adresse            '
      TextBox8.Value = .List(.ListIndex, 12)     'Lieu de Travail
      TextB_Fonction.Value = .List(.ListIndex, 13) 'Fonction
      TextB_Installation.Value = CDate(.List(.ListIndex, 14)) 'Date d'installation
      TextB_Anc_Inst.Value = .List(.ListIndex, 15) 'installation Ancienneté_Années
      TextBox22.Value = .List(.ListIndex, 16)    'installation Ancienneté_Mois
      TextBox23.Value = .List(.ListIndex, 17)    'installation Ancienneté_Jours
      TextBox13.Value = .List(.ListIndex, 18)    'Observation
      ' Chemin de l'image
      FPATH = .List(.ListIndex, 19)
      If FPATH <> "" Then
        Image1.Picture = LoadPicture(FPATH)
        Image1.PictureSizeMode = 3                 ' Zoom = conserve proportions
      End If
      ComboBox4.Value = .List(.ListIndex, 7)     'Sexe
      ComboBox1.Value = .List(.ListIndex, 8)     'Situation Familiale
      ComboBox2.Value = .List(.ListIndex, 11)    'Certificat Obtenu
      On Error GoTo 0
    End If
  End With
End Sub

.Cells(x, 20).Value = FPATH         ' Chemin et nom de la photo