Salut Diane,
quelque chose comme ça ?
Les données en [B37:C85] s'effacent avant chaque calcul.
A tester et corriger selon d'autres indications plus exhaustives !!
Private Sub cmdGO_Click()
'
Dim iRow%
'
On Error Resume Next
Application.ScreenUpdating = False
'
iRow = Cells.Find(what:="Pistes d'actions", lookat:=xlPart, LookIn:=xlValues, searchdirection:=xlNext).Row
Range("B37:C" & iRow - 2).Value = ""
iRowT = 36
For x = Range("C" & Rows.Count).End(xlUp).Row To iRow + 1 Step -1
If Range("C" & x).NumberFormat = "0%" And Range("C" & x).Value = 0 And UCase(Range("C" & x).Value) <> "FAUX" Then
iRowT = iRowT + 1
Range("B" & iRowT & ":C" & iRowT).Value = Range("B" & x & ":C" & x).Value
End If
Next
Range("C37:C" & iRowT).NumberFormat = "0%"
'
Application.ScreenUpdating = True
On Error GoTo 0
'
End Sub
A+