Sub Isertion()
Application.ScreenUpdating = False
Site = [A13]: Mois = [B13]
With Sheets("Base de données")
For L = 4 To .Range("A65500").End(xlUp).Row
If .Cells(L, "B") = Mois And .Cells(L, "A") = Site Then
.Range(.Cells(L, "C"), .Cells(L, "G")) = [C13:G13].Value
End If
Next L
End With
End Sub