Champs vides

Sub b()
 
    With Feuil2
        If .[A1] = vbNullString Then Exit Sub
        .Range("B1:B" & .[A65536].End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Offset(, -1).Copy Feuil1.[A1]
    End With
 
End Sub

With Application
    .ScreenUpdating = False
        With Feuil2
            .Range([B1], [B65536].End(xlUp)).AutoFilter 1, "="
            .AutoFilter.Range.Offset(1, -1).SpecialCells(xlCellTypeVisible).Copy Feuil1.[A1]
            .AutoFilterMode = False
        End With
    Feuil1.Activate
    .ScreenUpdating = True
End With

With Sheets("Données")
        If .Range("A1") = vbNullString Then Exit Sub
        .Range("B1:B" & .[A65536].End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Offset(, -1).Copy Feuil1.[A37]
        .Range("B1:B" & .[A65536].End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Offset(, 10).Copy Feuil1.[D37]
    End With