Supprimer des lignes dans des colonnes bien définies

Bonjour le forum bonjour a tous

J’ai trouvé sur le forum les codes suivants le problème c’est que lorsque je les place dans mon dossier ils ne fonctionnent plus. Pouvez vous m’aider S.V.P.

Sub SupprimerLignesVides()
Dim vDerniereLigne As Long
Dim vLigne As Long
vDerniereLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For vLigne = vDerniereLigne To 1 Step -1
If Application.CountA(Rows(vLigne)) = 0 Then Rows(vLigne).Delete
Next
End Sub


Sub SupprimerColonnesVides()
Dim vDernièreColonne As Long
Dim vCol As Long
vDernièreColonne = ActiveSheet.UsedRange.Columns.Count
Application.ScreenUpdating = False
For vCol = vDernièreColonne To 1 Step -1
If Application.CountA(Columns(vCol)) = 0 Then Columns(vCol).Delete
Next
End Sub


Sub SupprimerLignesColonnes()
Dim vDerniereLigne As Long
Dim vLigne As Long
Dim vDernièreColonne As Long
Dim vCol As Long
vDerniereLigne = ActiveSheet.UsedRange.Rows.Count
vDernièreColonne = ActiveSheet.UsedRange.Columns.Count
Application.ScreenUpdating = False
For vLigne = vDerniereLigne To 1 Step -1
If Application.CountA(Rows(vLigne)) = 0 Then Rows(vLigne).Delete
Next
For vCol = vDernièreColonne To 1 Step -1
If Application.CountA(Columns(vCol)) = 0 Then Columns(vCol).Delete
Next
End Sub


Sub SupprimerLignesVides2()
Dim vDerniereLigne As Long
Dim vPermiereLigne As Long
Dim vLigne As Long
vPremiereLigne = 2
vDerniereLigne = 15
For vLigne = vDerniereLigne To vPremiereLigne Step -1
If Application.CountA(Rows(vLigne)) = 0 Then Rows(vLigne).Delete
Next
End Sub


Merci de votre aide

Cordialement A+ hemardjean