' condition d'application de la Sub replace_empty
Sub appel_replace()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If IsNumeric(ws.Name) Then
Call replace_empty
End If
Next ws
End Sub
' code applicable à toutes les feuilles numériques : si cellule vide alors mettre un tiret
Sub replace_empty()
Dim oRangeTotal As Range
Dim oRange As Range
Set oRangeTotal = Range("F2:G23", Range("F65535:G65535").End(xlUp))
For Each oRange In oRangeTotal
If IsEmpty(oRange) Then
oRange.Value = "-"
End If
Next
End Sub