Copier des données sur la premiere cellule vide d'une colonne

If Range("BP1").Value = Range("BN1").Value Then desti.Range("BQ1").Resize(UBound(t)) = source.Range([BO2], [BO7].End(3)).Value

Sub test246()

Dim A, B, C, D, E, F
Dim heure As Long, minute As Long, seconde As Long
Dim Deb As Currency
Deb = Timer
Application.ScreenUpdating = False
'''''''''''''''''''''''''''''''''''''initialise les données
Range("BO1:BU65536").ClearContents

For A = 0.5 To 0.55 Step 0.01
For B = 0.5 To 0.55 Step 0.01
For C = 0.5 To 0.55 Step 0.01
For D = 0.5 To 0.55 Step 0.01
For E = 0.5 To 0.55 Step 0.01
For F = 0.5 To 0.55 Step 0.01

    Range("BO2").Value = A
    Range("BO3").Value = B
    Range("BO4").Value = C
    Range("BO5").Value = D
    Range("BO6").Value = E
    Range("BO7").Value = F
'''''''''''''''''''''''''''''''''''''test
'si BN1=BP1 alors copie de BY2:BY7 vers la premiere cellule vide de la colonne CA
       If Range("BN1").Value = Range("BP1").Value Then desti.Range("BQ2").Resize(UBound(t)) = source.Range([BO2], [BO7].End(3)).Value
'si BN1>BP1 alors on efface la colonne BQ
       If Range("BN1").Value > Range("BP1").Value Then Range("BQ2:BQ65536").ClearContents
'si BN1>BP1 alors on copie BO2:BO7 vers BQ2:BQ7
       If Range("BN1").Value > Range("BP1").Value Then Range("BQ2:BQ7").Value = Range("BO2:BO7").Value
'si BN1>BP1 alors on copie BN1 vers BP1
       If Range("BN1").Value > Range("BP1").Value Then Range("BP1").Value = Range("BN1").Value

      Next F
      Next E
      Next D
      Next C
      Next B
      Next A
      
  heure = (Timer - Deb) \ 3600
  minute = ((Timer - Deb) - heure * 3600) \ 60
  seconde = (Timer - Deb) - (heure * 3600) - minute * 60
  Range("BS1") = heure & " : " & minute & ":" & seconde
      '  ActiveWorkbook.Save
             Application.ScreenUpdating = True
End Sub