Souci Formulation de Macro

Bonjour à vous,

Ci-joint fichier avec macro qui ne fonctionne pas et qui me scotche.

ActiveSheet.Unprotect ("part4")

Range("A8:B115").SpecialCells(xlCellTypeFormulas, 23).SpecialCells(xlCellTypeFormulas, 2).Select

Selection.ClearContents

Range("K4").Select

J'ai également un souci avec le terme Apply en fin de macro.

Merci de votre aide,

Le

Palus

Bonjour

Modifies le début

Sub Macro3_findepartie()
'
' Macro3_findepartie Macro
'
    ActiveSheet.Unprotect ("part4")
    On Error Resume Next
     Range("A8:B115").SpecialCells(xlCellTypeFormulas, 23).SpecialCells(xlCellTypeFormulas, 2).ClearContents
     On Error GoTo 0

Pas de souci avec Apply

Yes ça marche.

Merci beaucoup tu m'enlèves une belle épine du pied !

Kénavo,

Le Palus