Sub modif()
repertoire = "Z:\DEPT CHAUDRONNERIE\Divers documents techniques\4 - Soudage\DMOS\"
mesfichiers = Dir(repertoire)
Do While mesfichiers <> ""
If InStr(mesfichiers, "FICHE AFFAIRE") <> 0 Then
Workbooks.Open repertoire & mesfichiers
With ActiveWorkbook
.Sheets("1").Range("D57") = ""
.Sheets("1").Range("D58") = ""
.Sheets("1").Range("E57") = ""
.Sheets("1").Range("E58") = ""
.Close SaveChanges:=True
End With
End If
mesfichiers = Dir
Loop
End Sub