Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
191 internautes nous ont dit merci ce mois-ci
Dim maCellule As Range Dim bFlag As Boolean For Each maCellule In Range("A1:A5") If maCellule.Value = "" Then bFlag = True Exit For End If Next If bFlag Then Range("A1").Value = "" Else Range("A1").Formula = "=tralala" End If