mise à un

Bonjour, Étant un novice je vous contact pour le problème suivant: Je souhaite mettre à un les valeurs qui sont à 0 à 1. Le code ci-dessous. Private Sub CommandButton1_Click() For Each C In Range("tableau") Range("B:B").Select If C.Value <= 0 Then...