Private Sub CommandButton1_Click()
'On déclare F entant que feuille
Dim F As Worksheet
'Si la Combobox a un texte (donc si une feuille est choisie par l'utilisateur) alors
If Me.ComboBox1.Text < > "" Then
'On attribu la feuille à la variable F
Set F = Sheets(Me.ComboBox1.Text)
'On copie la plage(Range)de la feuille F
'F.Cells(2, 1) = $A$2 (Cells(Ligne, Colonne))
'F.Cells(Rows.Count, 3).End(3)(2) = La derniere cellule remplie en colonne 3 (C) en partant de la dernière ligne (Rows.Count)
'et en remontant (End)(3)) + 1 ligne (2) (plus une ligne car si la feuille est vide on va copier l'en tête
'On copie cette plage (.Copy) sur la premiere celleule vide en colonne A de la feuiille active
F.Range(F.Cells(2, 1), F.Cells(Rows.Count, 3).End(3)(2)).Copy ActiveSheet.Cells(Rows.Count, 1).End(3)(2)
'On demande à l'utilisateur s'il veux sauvegarder
'si c'est oui on le fait
If MsgBox("Voulez-vous sauvegarder le classeur ?", 36, "Sauvegarde") = vbYes Then ThisWorkbook.Save
'Si non (si la Combobox est vide)
Else
'On avise l'utilisateur
MsgBox "Veuillez choisir une feuille à importer", 64, "Pas de feuille sélectionnée"
End If
End Sub