Créer fichier Excel sur le bureau via VBA + remplir des données

Bonjour,

Je ne suis pas tout à fait certain d'avoir compris la demande, mais voici toujours ce que j'en ai déduis. J'en ai profité pour nettoyer le code initial.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Option Explicit
 
Sub Test()
    Dim CheminBureau As String
    Dim CheminDossierBase As String
    Dim CheminDossierClient As String
    Dim CheminDossierDate As String
    Dim nomFichier As String
    Dim CheminFichierExcel As String
    Dim CheminFichierPDF As String
 
    CheminBureau = Environ("UserProfile") & "\Desktop\"
 
    CheminDossierBase = CheminBureau & "panpan"
    DossierOK CheminDossierBase
 
    Worksheets("données").Select
 
    CheminDossierClient = CheminDossierBase & "\" & Range("G1")
    DossierOK CheminDossierClient
 
    CheminDossierDate = CheminDossierClient & "\" & Year(Range("F1"))
    DossierOK CheminDossierDate
    DossierOK CheminDossierDate & "\Certificats"
    DossierOK CheminDossierDate & "\Fichiers Excel"
 
    If Range("C6") = "" Then
        nomFichier = Range("H1") & "_" & Range("C1") & "_" & Range("C4")
    Else
        nomFichier = Range("H1") & "_" & Range("C1") & "_" & Range("C4") & "_" & Range("C6")
    End If
 
    CheminFichierExcel = CheminDossierDate & "\Fichiers Excel\" & nomFichier & ".xlsm"
    ActiveWorkbook.SaveAs Filename:=CheminFichierExcel
 
    CheminFichierPDF = CheminDossierDate & "\Certificats\" & nomFichier & ".pdf"
    Worksheets("1ère Page").ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminFichierPDF
 
End Sub
 
Sub DossierOK(sDossier As String)
    If Dir(sDossier, vbDirectory) = "" Then MkDir sDossier
End Sub
 
Sub Migration()
    Dim CheminDossierBase As String
    Dim CheminFichierMigration As String
    Dim rPlage As Range
 
    Set rPlage = ThisWorkbook.Worksheets("données").Range("A43:L43")
 
    CheminDossierBase = Environ("UserProfile") & "\Desktop\panpan"
    DossierOK CheminDossierBase
 
    CheminFichierMigration = CheminDossierBase & "\Migration.xlsx"
 
    If Dir(CheminFichierMigration) = "" Then
        '--- le fichier Migration.xlsx n'existe  pas encore, le créer et le compléter
        Workbooks.Add.SaveAs Filename:=CheminFichierMigration
        Sheets("Feuil1").Select
        Range("A1") = "Test 1"
        Range("A2") = "Test 2"
        Range("A3") = "Test 3"
    Else
        '--- le fichier Migration.xlsx existe
        Workbooks.Open CheminFichierMigration
        Sheets("Feuil1").Select
    End If
 
    '--- copier la plage sous les lignes précédentes
    rPlage.Copy Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1)
    Set rPlage = Nothing
 
    ActiveWorkbook.Close savechanges:=True  '--- fermer avec sauvegarde
 
End Sub
Cordialement.