XL 2013 EXCEL 2013 Cacher des cellules d'une colonne si vide

Bonjour,

J'aurai aimé une petite aide sur un code que j'avais utilisé et que j'aimerai adapter.

Je voudrais copier / coller un tableau dans une autre feuille MAIS si la colonne "Mail" il y a des cellules vides il ne faut pas les copier.

Je ne suis pas bon en VBA j'ai juste récupéré ce code qui m'était utile quand il y avait un critère...

Merci à vous.

Option Explicit

Sub FiltreMail()
Dim WsS As Worksheet
Dim WsC As Worksheet


Range("A4:K100").Delete Shift:=xlToLeft
Application.ScreenUpdating = False
Set WsC = ThisWorkbook.ActiveSheet
Set WsS = Worksheets("Fichier général abos")


WsS.Range("A1:K100").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=WsC.Range("A1:A2"), CopyToRange:=WsC.Range("A4:K100"), Unique:=False

End Sub