condition dans une macro

[henri]

Bonjour à toutes & à tous,

Ci-dessous, une macro créer grace à votre aide, à laquelle je souhaite y ajouter une condition.J'explique :
1) je souhaiterais qu'elle s'execute dans le cas où la séléction ("NuMaconnerie") contient quelque chose (chiffre ou nbre) et dans le cas contraire quelle ne s'execute pas et que l'on passe à la macro suivante, et ainsi de suite jusqu'à la fin des macros.

2)J'ai créer environ x macros dans le même style : Pour que les macros s'exécute automatiquement l'une aprés l'autre, faut il mettre quelque chose
entre end Sub et subNumxxx


Merci pour vos réponses


Henri

Sub NuMaconnerie()
Dim Maplage As Range
Dim Cell As Range
Dim Compteur As Integer

Set Maplage = Sheets(1).Range(" NuMaconnerie") 'à ajuster
Compteur = 1
For Each Cell In Maplage
If Cell.Value <> "" Then
Cell = Compteur
Compteur = Compteur + 1
End If
Next
End Sub


Sub NumSanifour()
Dim Maplage As Range
Dim Cell As Range
Dim Compteur As Integer

Set Maplage = Sheets(1).Range(" NumSanifour") 'à ajuster

Compteur = 1
For Each Cell In Maplage
If Cell.Value <> "" Then
Cell = Compteur
Compteur = Compteur + 1
End If
Next
End Sub