Sub Copier_coller()
'déclaration des variables
Dim Wk_Reunion As Workbook
Dim ws_Feuille1 As Worksheet
Dim wk_Production As Workbook
Dim ws_Feuille2 As Worksheet
Dim Der_ligne As Long
Dim Destination As String
Dim Statut As Integer
Dim Ligne_coller As Long
'définir les fichiers et les feuilles Excel
Set Wk_Reunion = ActiveWorkbook
Set ws_Feuille1 = Wk_Reunion.Worksheets("Plan d'action")
Set wk_Production = Application.Workbooks.Open("C:\Benoit\Feuilles calculs EXCEL\Feuille de calculs (avec macros)\Plan d'action\PDCA Production.xlsm") 'Modifier le chemin du fichier au besoin au besoin
Set ws_Feuille2 = wk_Production.Worksheets("PDCA")
'Identifier la dernière sur la feuille réunion
Der_ligne = ws_Feuille1.Cells(Rows.Count, 1).End(xlUp).Row
'Boucle sur les données
For i = 5 To Der_ligne
'Identifier la destination
Destination = ws_Feuille1.Cells(i, 15)
'Identifier le statut
Statut = ws_Feuille1.Cells(i, 14)
If Destination = "Production" And Statut = 1 Then
Ligne_coller = ws_Feuille2.Cells(Rows.Count, 1).End(xlUp).Row + 1
'Copier et coller la valeur dans une autre feuille
ws_Feuille1.Range(ws_Feuille1.Cells(i, 1), ws_Feuille1.Cells(i, 10)).Copy (ws_Feuille2.Cells(Ligne_coller, 1))
'Ferme le fichier et enregistre les modifications
wk_Production.Close (True)
End If
Next
End Sub
