cellules vides en fait pas vides

 Range("B6").SpecialCells(xlCellTypeConstants).Copy _
    Destination:=Sheets("BD PA").Range("A1000").End(xlUp).Offset(1, 0)

Sub macro()
Dim i
Range("B6").Copy Sheets("BD PA").Range("A1000").End(xlUp).Offset(1, 0)
    With Sheets("NV PA")
        .Range("B8").Copy Sheets("BD PA").Range("C1000").End(xlUp).Offset(1, 0)
        .Range("D17:G20").Copy Sheets("BD REJETS ET BIOB").Range("A1000").End(xlUp).Offset(1, 0)
    End With
For i = 2 To Worksheets.Count
On Error Resume Next
Worksheets(i).Cells.SpecialCells(xlCellTypeFormulas, 16).ClearContents
Next
Sheets("SOMMAIRE").Select
End Sub

Private Sub CommandButton1_Click()
    Dim lig As Long
    Dim r As Range
    'Attention aux '.' devant Range
    'lorsqu'il n'y a pas de '.' devant range excel considère qu'il
    's'agit d'une plage de cellule de la feuille active (ici NV PA)
    With Sheets("BD PA").Range("a1000").End(xlUp).Offset(1, 0)
        .Value = Range("B6").Value 'Pas de point devant Range -> NV PA
        .Offset(, 2) = Range("B8").Value ' Idem
    End With
    
    For Each r In Range("D17:G20").Rows
        If r.Cells(1, 1) <> "" Then
            With Sheets("BD REJETS ET BIOB").Range("A1000").End(xlUp).Offset(1, 0)
                .Value = r.Cells(1, 1)
                .Offset(, 1) = r.Cells(1, 2)
                .Offset(, 3) = r.Cells(1, 4)
'Décommenter ci-dessous pour récupérer le format de la ligne du dessus colonne A à D
                '.Offset(-1).Resize(, 4).AutoFill .Offset(-1).Resize(2, 4), xlFillFormats
            End With
        End If
    Next
End Sub