Sub Imprime()
With Sheets("résultat CD34-CD3")
If .Range("B28").Value <> "0" And .Range("B30").Value <> "0" Then
.PrintPreview
Else
If Sheets("résultat CD34").Range("B28").Value <> "0" Then
Sheets("résultat CD34").PrintPreview
Else
If Sheets("résultat CD3").Range("B28").Value <> "0" Then Sheets("résultat CD3").PrintPreview
End If
End If
End With
End Sub