Merci beaucoup ThauThème,
c'est tout à fait ça !
sauf que j'ai oublié de dire que le texte "blablabla" dans mon exemple doit disparaître si la case est décochée...
Bon, peut-être pas très élégant mais ça fonctionne :
Private Sub CheckBox1_Click()
Dim R As Range
If CheckBox1.Value = True Then
Set R = Sheets("Document").Cells.Find("test", , xlValues, xlWhole)
If Not R Is Nothing Then R.Offset(-3, 0).Value = "Blablabla"
End If
If CheckBox1.Value = False Then
Set R = Sheets("Document").Cells.Find("test", , xlValues, xlWhole)
If Not R Is Nothing Then R.Offset(-3, 0).Value = ""
End If
End Sub
Merci ThauThème, merci Forum !