Sub Macro1()
Dim Ligne As Long
Ligne = Application.Match(Range("nom"), Sheets("Recap Cp").Range("A3:A6"), 0) + 2
With Sheets("Recap CP")
.Cells(Ligne, "C") = Sheets("Demande CP").[A8]
.Cells(Ligne, "D") = Sheets("Demande CP").[B8]
.Cells(Ligne, "E") = Sheets("Demande CP").[A9]
.Cells(Ligne, "F") = Sheets("Demande CP").[B9]
.Cells(Ligne, "G") = Sheets("Demande CP").[A10]
.Cells(Ligne, "H") = Sheets("Demande CP").[B10]
End With
End Sub