Sub ChangeDate()
For Each ws In Sheets
If ws.Name Like "CR Compta" & "*" Then
With ws.Rows("2:4")
.Replace What:="2018", Replacement:="2019", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
.Replace What:="2017", Replacement:="2018", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End With
End If
Next ws
End Sub