Faire coller une valeurs sous la premiere cellule vide..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$M$22" Then Cancel = True: Target = Target + 1
If Intersect(Target, [B3,B5,B7,B9,B11,B13,B15,B17,B19]) Is Nothing Then Exit Sub
Cancel = True
With [P:P].Find("", [P4], xlValues)
  [M22].Copy .Cells
  .Cells(1, 2) = Target(1, 2)
End With
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$M$22" Then Cancel = True: Target = Target + 1
If Intersect(Target, [B3,B5,B7,B9,B11,B13,B15,B17,B19]) Is Nothing Then Exit Sub
Cancel = True
With [P:P].Find("", [P4], xlValues)
  If .Row > 36 Then .EntireRow(2).Insert
  .Cells(0).Resize(, 12).AutoFill .Cells(0).Resize(2, 12), xlFillFormats
  .Cells = [M22]
  [M22] = [M22] + 1 'économise un double-clic
  .Cells(1, 2) = Target(1, 2)
End With
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$M$22" Then Cancel = True: Target = Target + 1
If Intersect(Target, [B3,B5,B7,B9,B11,B13,B15,B17,B19]) Is Nothing Then Exit Sub
Cancel = True
With [P:P].Find("", [P4], xlValues)
  If .Row > 36 Then .EntireRow(2).Insert
  .Cells(0).Resize(, 12).Copy .Cells 'pour copier aussi les formules
  .Cells.Resize(, 12).SpecialCells(xlCellTypeConstants) = "" 'RAZ (si nécessaire)
  .Cells = [M22]
  [M22] = [M22] + 1 'économise un double-clic
  .Cells(1, 2) = Target(1, 2)
End With
End Sub