Sub Macro1()
'si le nombre de valeurs dans l'onglet est différent de 0 (si il existe une cellule non vide)
If Application.WorksheetFunction.CountA(Cells) <> 0 Then
'action 1 (à définir)
Else 'sinon (si toutes les cellules sont vide)
'action 2 (à définir)
End If
End Sub