Private Sub CommandButton1_Click() 'bouton "Ajouter les fichiers"
Dim i As Integer 'déclare la variable i (Incrément)
Dim cs As Workbook 'déclare la variable cs (Classeur Source)
Dim os As Object 'déclare la variable os (Onglet Source)
Dim dest As Range 'déclare la variable det (cellule de DESTination)
Me.Hide 'masque l'UserForm1
Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
For i = 0 To Me.ListBox1.ListCount - 1 'boucle sur tous les éléments de la ListBox1
If Me.ListBox1.Selected(i) = True Then 'condition : si l'élément est sélectionné
Workbooks.Open (ch & "\" & Me.ListBox1.List(i)) 'ouvre le fichier
Set cs = ActiveWorkbook 'définit le classeur source cs
[COLOR="#FF0000"]Set os = cs.Sheets("Feuil1") 'définit l'onglet source os[/COLOR]
Set dest = od.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0) 'définit la cellule de destination
dest.Value = Year(Date) 'récupère l'année en cours
dest.Offset(0, 1).Value = Split(Me.ListBox1.List(i), ".")(0) 'récupère le nom du classeur (sans l'extension)
dest.Offset(0, 2).Value = os.Range("D3") 'récupère l'info 1
dest.Offset(0, 3).Value = os.Range("B6") 'récupère l'info 2
dest.Offset(0, 4).Value = os.Range("B7") 'récupère l'info 3
dest.Offset(0, 5).Value = os.Range("C9") 'récupère l'info 4
dest.Offset(0, 6).Value = os.Range("C10") 'récupère l'info 5
dest.Offset(0, 7).Value = os.Range("F16") 'récupère l'info 6
dest.Offset(0, 8).Value = os.Range("F23") 'récupère l'info 7
cs.Close SaveChanges:=False 'ferme le classeur (sans le sauver)
End If 'fin de la condition
Next i 'prochain élément de la boucle
Unload Me 'vide et ferme l'UserForm1
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub