LibreOffice Calc LibreOffice cal probleme pour effacer colonne

Bonjour, les champions
j'ai un problemem dans ma macro dans libre office cal, quand je clique sur la macro tous semble bien sauf que la collone B3:C32 ce s'efface pas a savoir que dans la collone D332 il y a une formule.

Merci de votre aide

voici le code

Sub CopierEtEffacerSiConfirmation()

Dim oFeuille As Object
Dim i As Integer
Dim valeurRecherchee As String
Dim celluleAC As Object
Dim valeurD34 As Variant
Dim valeurE34 As Variant
Dim reponse As Integer

' Feuille "depots"
oFeuille = ThisComponent.Sheets.getByName("depots")

' Confirmation de l'utilisateur
reponse = MsgBox("Confirmer la copie des données et l'effacement de B3:E32 ?", 36, "Confirmation")
If reponse <> 6 Then ' 6 = bouton Oui
MsgBox "Opération annulée.", 64, "Annulé"
Exit Sub
End If

' Valeur recherchée (nettoyée)
valeurRecherchee = Trim(UCase(oFeuille.getCellRangeByName("B34").String))
valeurD34 = oFeuille.getCellRangeByName("D34").Value
valeurE34 = oFeuille.getCellRangeByName("E34").Value

' Recherche dans AC4:AC15
For i = 3 To 14
celluleAC = oFeuille.getCellByPosition(28, i)
If Trim(UCase(celluleAC.String)) = valeurRecherchee Then
' Copie des données dans AD et AE
oFeuille.getCellByPosition(29, i).Value = valeurD34
oFeuille.getCellByPosition(30, i).Value = valeurE34

' Efface les valeurs uniquement dans B3:E32
With oFeuille.getCellRangeByName("B3:E32")
.clearContents(1) ' 1 = efface uniquement les valeurs
End With

MsgBox "Valeurs copiées et saisie effacée.", 64, "Succès"
Exit Sub
End If
Next i

MsgBox "Aucune correspondance trouvée dans la colonne AC4:AC15.", 48, "Recherche"

End Sub