Probleme de code VBA

Bonjour et meilleurs voeux à tous,

Mon code fonctionnait très bien lorsque j'avais mes données sur un seul bloc de colonnes, mais pour des raisons de meilleures lisibilités et de calcul, nous avons été obligé de scinder les repas de midi et les repas du soir, repas du midi de la cellule A1 à P38 et les repas du soir de la cellule A53 à R83.

Voici les codes et fichiers pour une meilleure explication :

Sub B_ok_Click()
  '--- ' contrôles
  'For i = 1 To 16
    'If Not IsNumeric(Controls("nombre" & i)) Then
     ' MsgBox "Merci de saisir tous les champs"
     ' Me("nombre" & i).SetFocus
     ' Exit Sub
   ' End If
  'Next i
  '---transfert BD - MIDI

  [A38].End(xlUp).Offset(1, 0).Select
  ActiveCell = Me.Date1

  For i = 1 To 32
       ActiveCell.Offset(0, i) = CDbl(Controls("nombreMidi" & i))
   Next i

   '---transfert BD - SOIR

 Call TransfertBdSoir

End Sub

Sub TransfertBdSoir()

 [A83].End(xlUp).Offset(1, 0).Select
  ActiveCell = Me.Date1

  For j = 1 To 32
       ActiveCell.Offset(0, i) = CDbl(Controls("nombreSoir" & i))
   Next j

   raz
    Unload FormGestionRepas

End Sub