Sub recup_donnees_CIP_B()
fichier_mensuel = Cells(12, 3)
feuille_mensuel = Cells(16, 3)
fichier_annuel = ActiveWorkbook.Name
feuille_annuel = "CIP" 'si la feuille est renommée, à changer
'Copier/coller valeurs des lignes déjà existantes
Sheets(feuille_annuel).UsedRange.Value = Sheets(feuille_annuel).UsedRange.Value
'Le nouveau mois à charger est le dernier mois +1, lu en colonne A = colonne 1
nouvelle_ligne = Cells(Rows.Count, "B").End(3)(2).Row
nouveau_mois = Cells(nouvelle_ligne - 1, "A") + 1
''Lire les lignes à copier
With Workbooks(fichier_mensuel).Worksheets(feuille_mensuel)
Set r = Range(.Rows(2), .Rows(2).End(xlDown))
nombre_nouv_lignes = r.Rows.Count
r.Copy
End With
''Insérer les nouvelles lignes
Workbooks(fichier_annuel).Worksheets(feuille_annuel).Rows(nouvelle_ligne).Insert Shift:=xlDown
'///// J'ai arrêté mes modifs ici
''Ajouter le mois
'Range(Cells(nouvelle_ligne, 1), Cells(nouvelle_ligne + nombre_nouv_ligne - 1, 1)) = nouveau_mois
''Lire les données à copier et les copier
'Workbooks(fichier_mensuel).Worksheets(feuille_mensuel).Activate
'Rows(2).Select
'Range(Selection, Selection.End(xlDown)).Select
'nombre_nouv_lignes = Selection.Rows.Count
'Selection.Copy
End Sub