Macro pour remettre cellule à 1

Bonjour,

Je sais que je peux le faire en enregistrant un macro où je met un à un mes cellules concernées à la valeur 1. Mais, j'aimerais avoir quelque chose de moins lourd.

Quelqu'un connait la solution? Merci!

jl

Salut Jacklambert

Voici le code

Sub RàZ()
  Dim Lig As Long
  ' Avec la feuille nommée Sheet1
  With Sheets("Sheet1")
    ' De la ligne 3 à 31
    For Lig = 3 To 31
      ' Si la cellule n'est pas vide
      If .Range("H" & Lig).Value <> "" Then
        ' Mettre valeur 1
        .Range("H" & Lig).Value = 1
      End If
    Next Lig
  End With
End Sub

A+

Merci Bruno!