XL pour MAC VBA - Feuilles qui se complètent

Sub Transfert_Facture()

Dim Cell As Range
Dim Ligne, Reponse As Integer

Reponse = MsgBox("Confirmez-vous le Tranfert Façonnage, Coupe, sur la feuille Facture?", vbYesNo)

If Reponse = vbYes Then

    With Sheets("Facture")
  
                Select Case Ligne
                    Case Range("B28").Value = " "
                        Ligne = .Cells(29, 2).End(xlUp).Row + 1
                    Case Range("B62").Value = " "
                        Ligne = .Cells(63, 2).End(xlUp).Row + 1
                    Case Range("B96").Value = " "
                        Ligne = .Cells(97, 2).End(xlUp).Row + 1
                    Case Else
                        MsgBox "Transfert impossible: tableau complet."
                    Exit Sub 'permet d'arrêter le transfert
                End Select
                
                    Application.ScreenUpdating = False
                
                                    .Cells(Ligne, 2) = Range("B3").Value
                                  
                                    .Cells(Ligne, 3) = Range("C3").Value
                                  
                                    .Cells(Ligne, 4) = Range("D3").Value
                                      
                                    .Cells(Ligne, 5) = Range("E3").Value
              
                    Application.ScreenUpdating = True
                    
    End With
            
    MsgBox "Transfert Façonnage réussi!"
          
    Else
    MsgBox "Transfert interrompu."
    End If

End Sub

Sub Transfert_Facture()
If [B3] = "" Then Exit Sub
Dim c As Range
Set c = Sheets("Facture").[B7:B28,B42:B62,B76:B96].Find("", , xlValues)
If c Is Nothing Then MsgBox "Désolé, plus de place...": Exit Sub
c.Resize(, 4) = [B3:E3].Value
End Sub

Sub Transfert_Facture()
If [B3] = "" Then Exit Sub

Dim c As Range
Set c = Sheets("Facture").[B7:B28,B42:B62,B76:B96].Find("", , xlValues)
If c Is Nothing Then MsgBox "Désolé, plus de place...": Exit Sub
c.Resize(, 4) = [B3:E3].Value

Dim d As Range
Set d = Sheets("Facture").[B7:B28,B42:B62,B76:B96].Find("", , xlValues)
If d Is Nothing Then MsgBox "Désolé, plus de place...": Exit Sub
d.Resize(, 1) = [B6].Value

Dim e As Range
Set e = Sheets("Facture").[E7:E28,E42:E62,E76:E96].Find("", , xlValues)
If e Is Nothing Then MsgBox "Désolé, plus de place...": Exit Sub
e.Resize(, 1) = [C6].Value

Dim f As Range
Set f = Sheets("Facture").[B7:B28,B42:B62,B76:B96].Find("", , xlValues)
If f Is Nothing Then MsgBox "Désolé, plus de place...": Exit Sub
f.Resize(, 1) = [B9].Value

End Sub