Sub RemplaceVide_v2()
Dim tablo As Variant, i%, k%
Dim cel As Range
ReDim tablo(1 To Range("A65536").End(xlUp).Row)
For i = 1 To UBound(tablo)
If Cells(i, 2).Value = "X" Then tablo(i) = Cells(i, 1).Value
Next i
With Sheets("Etude 1")
For i = 1 To Sheets.Count
For k = 1 To UBound(tablo)
If tablo(k) = Sheets(i).Name Then
For Each cel In .Range("C33:C106,D33:D106,E33:E106")
cel = IIf(IsEmpty(cel), 0, cel.Value)
Next cel
End If
Next k
Next i
End With
End Sub
Sub RemplaceVide_v2()
Dim tablo As Variant, i%, k%
Dim cel As Range
ReDim tablo(1 To Range("A65536").End(xlUp).Row)
For i = 1 To UBound(tablo)
If Cells(i, 2).Value = "X" Then tablo(i) = Cells(i, 1).Value
Next i
For i = 1 To Sheets.Count
For k = 1 To UBound(tablo)
If tablo(k) = Sheets(i).Name Then
For Each cel In Sheets(i).Range("C33:C106,D33:D106,E33:E106")
cel = IIf(IsEmpty(cel), 0, cel.Value)
Next cel
End If
Next k
Next i
End Sub