bonjour,
j'ai corrigé un bug
Sub aargh()
With Sheets("feuil1")
For i = 2 To .Cells(Rows.Count, 2).End(xlUp).Row Step 12
If Left(.Cells(i, 1), 3) = "CCV" Then
col = .Cells(i, Columns.Count).End(xlToLeft).Column
For k = 3 To col
If .Cells(i, k).Interior.Color = vbRed Then
For j = -11 To 11
If j <> 0 And .Cells(i + j, k) <> "" And InStr(.Cells(i + j, k), "C") = 0 Then
.Cells(i + j, k) = Format(.Cells(i + j, k), "##0.00%") & "C"
End If
Next j
End If
Next k
End If
Next i
End With
End Sub