XL 2013 Ne sélection pas le bon onglet (résolu)

Bonjour,

Essaie de remplacer le code de la macro2 par celui-ci :

Private Sub Macro2()
Dim cell As Range
Dim plage As Range

'Application.ScreenUpdating = False
Worksheets("Vac 2019_2020").Activate
Range("k6:BK300").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

With Sheets("Résumé_vacances")
Set plage = .Range("c4:Bc300")
For Each cell In plage 'Range("c4:Bc300")
If cell.Value >= 2 Then

cell.Interior.Color = rgbRed
cell.Font.Bold = True
Else
cell.Interior.ColorIndex = 0
cell.Font.Bold = False
End If
Next cell
End With
Worksheets("Vac 2019_2020").Activate
Application.ScreenUpdating = True
ActiveWorkbook.Save
End Sub


a+

Bonjour Chalet53, le forum,

Merci pour ta réponse.