je m'en suis sorti avec un appel à un ami qui m'a donné avec 10 et 200 à adapter en fonction du nombre de ligne et colonne
Sub Macro1()
'
' Macro1 Macro
'
'
For i = 1 To 200
For j = 1 To 10 If InStr(Cells(i, j).Formula, DBRW) Then
Cells(i, j).Copy
Cells(i, j).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next j
Next i
End Sub