Private Sub passwordchange_Click()
Dim cel As Range
If Range("C4") = "" Then
MsgBox "Merci de renseigner une référence", vbExclamation, "Alerte"
Exit Sub
End If
With ActiveSheet.Columns(1)
Set c = .Find(Range("C4").Value, , xlValues, xlWhole, , , False)
If Not c Is Nothing Then
p = c.Address
Do
c.Offset(0, 1).Value = Range("E4").Value
Set c = .FindNext(c)
Loop While c.Address <> p
End If
End With
Range("B4").Select
ActiveWorkbook.Save
Range("B4").Select
End Sub