[Résolu par job75] Copier des lignes du bas vers le haut mais une à une

Sub Bas_Haut()
Dim lig As Long, col As Integer
With Feuil1
  For lig = Feuil2.Range("A65536").End(xlUp).Row To 1 Step -1
    If .Cells(lig, 1) = "" Then
      For col = 1 To 2
        .Cells(lig, col) = Feuil2.Cells(lig, col)
      Next col
      Exit Sub
    End If
  Next lig
End With
End Sub

Sub Haut_Bas_Haut()
Dim test As Boolean, c As Range, col As Integer
With Feuil1
  test = .DrawingObjects("Bouton 1").Text = "Haut_Bas"
  .DrawingObjects("Bouton 1").Text = IIf(test, "Bas_Haut", "Haut_Bas")
  Set c = .[A1].Resize(Feuil2.Cells(Rows.Count, 1).End(xlUp).Row) _
    .Find("", , xlValues, , xlByColumns, IIf(test, xlNext, xlPrevious))
  If c Is Nothing Then Exit Sub
  For col = 1 To 2
    c(1, col) = Feuil2.Cells(c.Row, col)
  Next col
End With
End Sub

Sub Haut_Bas_Haut()
Dim test As Boolean, c As Range
With Feuil1
  test = .DrawingObjects("Bouton 1").Text = "Haut_Bas"
  .DrawingObjects("Bouton 1").Text = IIf(test, "Bas_Haut", "Haut_Bas")
  With .[A1].Resize(Feuil2.Cells(Rows.Count, 1).End(xlUp).Row)
    Set c = .Find("", , xlValues, , xlByColumns, IIf(test, xlNext, xlPrevious))
    If c Is Nothing Then .Offset(1).EntireRow = "": Set c = .Cells(IIf(test, 2, .Count))
    Feuil2.Rows(c.Row).Copy c
  End With
End With
End Sub

Sub Haut_Bas_Haut()
Dim test As Boolean, c As Range
test = Feuil1.DrawingObjects("Bouton 1").Text = "Haut_Bas"
With Feuil1.[A1].Resize(Feuil2.Cells(Rows.Count, 1).End(xlUp).Row)
  Set c = .Find("", , xlValues, , xlByColumns, IIf(test, xlNext, xlPrevious))
  If c Is Nothing Then
    .Parent.DrawingObjects("Bouton 1").Text = IIf(test, "Bas_Haut", "Haut_Bas")
    .Offset(1).EntireRow = ""
    Exit Sub
  End If
  Feuil2.Rows(c.Row).Copy c
End With
End Sub